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EDITORIAL 


This Month’s Magazine 


This issue of ELBUG covers the two months of August and September, 

will be that for October. The contents of this issue have a pronounced visual 

Apart from the three games, all of which provide excellent screen 

two further programs of a highly graphical nature. 

after the style of Spirograph, giving 
Build a House' will probably please our 

picture of a house and garden is 


the next 


flavour to them, 
displays, 

* Harmonograph’ will produce endless patterns 
many hours of fascinating pleasure, while 
younger readers in the way in which the colourful 
built up on the screen. Watch out here for the cat. 


there are 


Our series on Electron graphics is now drawing to a close, and this month we show 
how to extend the choice of colours available, by producing all manner of striped 
colours and shades to enhance you own graphics displays. 


joy-sticks and printers are becoming quite widely 

available, we have included a most useful and practical application in the form of a 
text editor. This allows you to create and edit text for all sorts of purposes and 
even if you don't yet have a printer with your Electron, may still prove of great 
value in communicating with other ELBUG members and sending us letters and articles 

in the ELBUG office. 


Now that interfaces for 


THE EXPANDING ELECTRON 

Acorn tell us that they are now sending out over 
that this is rapidly becoming one of the best selling micros in its 

Many other suppliers are also extending the range of add-ons 
evidenced by several of the stands at the recent Micro 
Palace. We shall be looking at all the new developments for 
to carry reviews of the latest products in the next issue. 


20,000 Electrons a month and 

range. 

for the Electron, 
User Show at Alexandra 
the Electron and expect 


pr ice 


Mike Wi 11 iams 


OT1CE BOARD NOTICE BOARD NOTICE BOARD NOTICE B 


i 


Magazine Cassette 


All the programs in this month's magazine are 
together with an additional program by S.Fox which provides 
or monitor screen to go with our review of monitors in 
cover for full ordering details. 


available on cassette 


a test card on your TV 

the back 


this issue. 


MAGAZINE BINDERS 

Several readers have written to us about binders for their copies of ELBUG, and 

pleased to announce that the details of this have now been agreed. See the 
inside back cover for further information. 


we 


Hint Winners 

This month we have awarded three £5 prizes for the 
are D.Robinson, G.Edwards and N.kelly. Any new hints will always be most welcome. 


hints, and the winners 


Flowers of Hell 

This program, published in our last 
during production which resulted in one line being omitted 
relates to line 1770 and the correct listing at this point should read as follows: 

1760 VDU23,227,255,255,255,127,63,3,3,1 
1770 VIXJ23,228,24,126,126,255,255,126,126,24 
We are sorry for this omission. 


was unfortunately subject to error 

from the listing. This 
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CODEBREAKER 


Bv G. Huszcza 

* 


This game makes good use of the range of colours available in mode 2 

to provide an excellent implementation of the game popularly known 

Mastermind’, in which you have to break a secret code, based on 


a sequence of colours. 


this program are as follows: 


program Codebreaker 
comparatively short and should be typed 
into your Electron and 


The 


is 


Displays main title page. 
Initialises variables, user 


title 
ini t 


on 


cassette before starting 


to play. In 


the game the computer will secretly set 


defined characters and 


sound envelopes. 

Draws the outline of the 
game display. 

Randomly selects the 


4 coloured pegs out of a 
total of 6 colours available. You then 


up a code of 


drawgrid 


have a maximum 


of 10 chances to guess 


the correct sequence and win. 


startgame 


Deals with the selection 


The six colours are numbered from 1 


choose- 

colours 
check- 
colours 
g ameend 


of colours by the player. 
Checks the latest guess. 


to 6, and you enter your sequence by 

the four corresponding 
number keys (those numbered 1 to 6 of 

and confirm your guess by 


just pressing 


Displays the score etc 


course) 

pressing Return. Until you press Return 

any or all of the 
colours already selected by using the 


at the end of a game. 


you can delete 


The two procedures, PROCchooseco1ours 

and PROCcheckcolours, 
further short procedures whose 
functions should be obvious from their 


also call some 


Delete key. As the colours are selected 


they are displayed clearly on the left 
hand side of the screen. 


names. They deal with the display and 


removal of coloured pegs as guessed by 


Once you nave completed your latest 
try the computer will tell you how 
close you are by displaying the number 

of 'cows' and 'bulls 
A 'cow 


the player, and the display of the 
’cows' and ’bulIs'. 


you have scored. 


W m 


- ■ * I 


■ ■ 


* - 


B ■ ■ 


■ fi 


■ P 


- shown by a white marker or 
indicates the correct colour but 




■ ■ 


10 REM PROGRAM CODEBREAK 
20 REM VERSION E0.2 
30 REM AUTHOR G.HUSZCZA 
40 Rm ELBUG 
50 REM PROGRAM SUBJECT TO COPYRIGHT 
60 : 

100 ON ERROR GOTO!970 
110 DIM YOURPEG%(4),PEG%(4),TEMP%(4) 

120 M0DE1 
130 PROCtitle 
140 REPEAT 
150 MODE2 

160 VDU23,1,0;0;0;0; 

170 VDU24,48;22;576;1001 ; 

180 PROCinit 

190 PROCdrawgridrPROCstartgame 
200 REPEAT 

210 PROCchoosecolours 

220 PROCcheckcolours 
230 UNTIL TRYS%=10 OR FOUND=TRUE 
240 PROCgameend 
250 UNTILNEWGAME=FALSE 
260 VDU23,1,1;0;0;0; 

270 MODE6 


peg 


in the ’wrong place, and a 
shown by a black peg 
right colour and in the right place. 
Clearly the code is 

when 


bull 


indicates the 


AUG/SEP.84 


guessed correctly 


four 


bulls' (black 


you score 


markers). 


When you are playing, remember that 

both in the 


colours may be 


secret code and in your 


guess. It will 


also pay you to use your 
to try and gather useful information, 
rather than guessing 
outright. 


This is a fascinating and demanding 

game which will keep you entertained 
for hours, particularly with the 

colourful version provided by this 
program. 


PROGRAM NOTES 


1 


The 


r inci 


in 
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280 END 


290 : 


1000 DEFPROCtitle 


1010 VDU19,0,4,0,0,0:PRINTTAB(15,2); n C 


ODOURS":PRINTTAB(18,4);"By";TAB(14,6); 


M 


G.Huszcza 


1020 PRINTTAB(4,10);"KEYS ARE AS FOLLO 


;TAB(6,14); "1 -6 FOR COLOURS";TAB( 


WS : 


6,16);"DELETE TO RUB OUT";TAB(6,18);"RE 


It 


TURN TO FINISH TURN 


1030 PRINT''TAB(4)"Black pegs signify 


a correct colour in the correct hole. 


white peg signifies a correct c 


and a 


olour in the wrong hole. 


1040 PRINTTAB(13,30);"PRESS ANY KEY":A 


% =GET 


1050 ENDPROC 
1060 : 

1070 DEFPROCinit 

1080 TRYS%=0:FOUND=FALSE:NEWGAME=TRUE: 
PEGX%=192:PEGY%=87:MARKERX%=48:MARKERY% 
=75:BLACKMARKS%=0:THREE=FALSE 
1090 VDU23,255,60,126,255,255,255,255, 

126,60:VDU23,254,0,0,24,60,60,24,0,0 
1100 ENVELOPE2,2,6,0,0,255,0,0,126,0,0 
,-126,126,126 
1110 ENDPROC 
1120 : 

1130 DEFPROCdrawgrid . 

1140 GCOL0,132:CLG:GCOL0,7 
1150 MOVE48,22:DRAW48,1001:DRAW576,100 
1: DRAW576,2 2: DRAW 4 8,22 
1160 F0RF%=120TO904STEP98:MOVE48,F%:DR 
AW576,F%:NEXT 

1170 MOVE!60,22:DRAW160,1001 

1180 GCOL0,0:VDU5:F0RF%=87T0969STEP98: 
F0RP%=192T04 80STEP96:MOVEP%,F%:VDU2 55:N 
EXT, 

1190 VDU4:COLOUR3:PRINTTAB(10,1)"COLOU 


1330 F%=1:REPEAT 
1340 REPEAT 
1350 *FX1 5 
1360 A%=GET 

1370 UNTILA%>48 AND A%<55 OR A%=127 OR 
A%=1 3 

1380 SOUND!,-15,80,5 

1390 IF A%<>127 AND A%<>13 AND F%<5 TH 
EN YOURPEG%(F%)=A%-48:IF YOURPEG%(F%)>= 
4 THEN YOURPEG%{F%)=YOURPEG%(F%)+1 
1400 IF A%<>127 AND A%<>13 AND F%<5 TH 
EN YOURCOLOUR%=YOURPEG%(F%):PROCpiacepe 
g(YOURCOLOURI,PEGX%,PEGY%):PEGX%=PEGX%+ 


96 


1410 IF A%=127 AND PEGX%<>192 PROCremo 
ve:F%=F%-l 

1420 IF A%>48 AND A%<55 AND F%<>5 THEN 
F%=F%+1 

1430 IF A%=13 AND F%=5 THEN F%=6 

1440 UNTIL F%=6 

1450 PEGY%=PEGY%+98:PEGX%=192 

1460 TRYS%=TRYS%+1 

1470 ENDPROC 

1480 : 

1490 DEFPROCremove 

1500 PEGX%=PEGX%-96:GCOL0,0:MOVE PEGX% 
,PEGY%:VDU255 

1510 ENDPROC 

1520 : 

1530 DEFPROCplacepeg(COL%,X%,Y%) 

1540 GCOL0,COL%:MQVEX%,Y%:VDU255 
1550 ENDPROC 
1560 : 

1570 DEFPROCcheckcolours 
1580 F0RP%=1T04:TEMP%(P%)=PEG%(P%):NEXT 
1590 F0RF%=1T04:IFTEMP%<F%)=YOURPEG%(F 
%) THEN PROCmarker(0):YOURPEG%(F%)=8:TE 
MP%(F%)=8:BLACKMARKS%=BLACKMARKSI+1 

1600 NEXT 

1610 FOR PEGS%=1T04:FINISHED=FALSE:F%= 

1:REPEAT 


II 


RS 


1200 ENDPROC 
1210 : 

1220 DEFPROCstartgame 
1230 FORF%=1T04 

1240 PEG%(F%)=RND(7):IFPEG%(F%)=4 GOTO 
1240 

1250 NEXT 

1260 COLOUR7:F0RF%=2T012STEP2:color%=F 
%/2:IFcolor%>=4 THEN color%=color%+l 
1270 COLOURco1or%:PRINTTAB(10,11+F%);C 
HR$(255):COLOUR7:PRINTTAB(12,11+F%);F%/ 
2:NEXT 

1280 COLOUR1:PRINTTAB(10,3);"PICK THE" 

;TAB(10,4);"COLOURS";TAB(10,5);"YOU WAN 
T";TAB(10,6);"BY";TAB{10,7);"ENTERING"; 

TAB(10,8);"THE NO'S" 

1290 VDU5 
1300 ENDPROC 
1310 : 

1320 DEFPROCchoosecolours 
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1620 IF YOURPEG%(F|)=TEMP%(PEGS%) AND 
Y0URPEG%(F%)<>8 AND TEMP% (PEGS%) 08 THE 
N PROCmarker(7):YOURPEG%(F%)=8:FINISHED 
TRUE 

1630 F%=F%+1 

1640 UNTIL FINISHED=TRUE OR F%>4 
1650 NEXT 

1660 IF THREE=TRUE THEN MARKERY%=MARKE 
RY%+66:THREE=FALSE ELSE MARKERY%=MARKER 

Y%+98 

1670 MARKERX%=48 

1680 IF BLACKMARKS%=4 THEN FOUND=TRUE 
ELSE BLACKMARKS%=0 

1690 ENDPROC 
1700 : 

1710 DEFPROCmarker(MARKCOLOUR%) 

1720 QCOL0,MARKCOLOUR%:MOVEMARKERX% / MA 
RKERY%:VDU254 
1730 MARKERX%=MARKERX%+48 
1740 IF MARKERX%>96 THEN MARKERX%=48:1 
F (MARKERY%-75)MOD 98=0 THEN MARKERY%=M 
ARKERY%+32:THREE=TRUE 
1750 SOUND!,-15,45,4 
1760 ENDPROC 
1770 : 

1780 DEFPROCgameend 

1790 VDU4:C0L0UR2:PRINTTAB{10,3);"GAME 
OVER!" 

1800 F0RF%=4T024:PRINTTAB(10,F%);SPC(1 
0):NEXT 

1810 C0L0UR7:PRINTTAB{10,7);"COMPUTER 
;TAB(10,8);"HAD: 


1820 F0RF%=1T04:COLOURPEG%(F%):PRINTTA 
B(1l0+ (F%*2) ,10) ;CHR$(255) :NEXT 
1830 COLOUR?:PRINTTAB(10,18);"PRESS AN 
Y M ;TAB(13,19);"KEY 

1840 SOUND!,2,4,50:REM FANFARE 
1850 A%=GET:CLS:C0L0UR3 

1860 PRINTTAB(4,1);"PERFORMANCE":IF FO 
UND=TRUE THEN PRINTTAB(0,4);"YOU FOUND 
THE RIGHT 

:IF TRYS%<>1 THEN PRINT"S 
1870 COLOURS:PRINTTAB(0,10);:IF TRYS%> 
1 AND TRYS%<=3 THEN PRINT"YOU WERE LUC 


It 


*1 I I It 


ANSWER IN ";TRYS%;" TURN"; 


It 


It 


KY 


1880 IF TRYS%>3 AND TRYS%<=6 PRINT"YOU 
DID WELL 

1890 IF TRYS%>6 AND TRYS%<=10 AND FOUN 
D=TRUE PRINT"I'LL BEAT YOU NEXT 

TIME 

1900 IF FOUND=FALSE THEN PRINT"YOU IOS 

T I 1 1 " 

1 I* * # 

1910 COLOURS:PRINTTAB(0,16)ANOTHER G 

AME (Y/N)?" 

1920 REPEAT:ANS%=GET:UNTILANS%=78 OR A 
NS%=89 

1930 IF ANS%=78 THEN NEWGAME=FALSE 
1940 CLS 
1950 ENDPROC 
1960 : 

1970 ON ERROR OFF 
1980 MODE6:IF ERR=1 7 END 
1990 REPORT:PRINT" at line ";ERL 

2000 END 
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it 
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FUNCTIO N KEY LISTING OF ENVELOPES 
This 


T.J.L.Young 

will set a function key to display the parameters of any desired envelope, 
listed in the same order as in the ENVELOPE instruction, but the envelope 


These are 


number should supplied in response to the prompt: 

*K.0MO.6:INP."Number of envelope";N%:0%=0:P."Envelope ";N%;:F.t%=0 TO 12:P.", 
E%=?(&8C0+(N%-1)*16+t%):IF(t%>0 AND t%<4) OR (t%>6 AND t%<ll) THEN IF E%>127 E% 
E%-1:T%=E%EOR&FF:P, 


it * . 


t * 


;:P.T%;:N.:P.:0%=1 0:EL.T%=E%:P.T%;:N.:P.:@%=10 M 
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LISTO ABBREVIATION 

The User Guide lists 


keywords and their abbreviated forms between pages 134 and 
command for which it says there is none. However, it 

so the conclusion that shortening LISTO to 

followed by L. (or LIST) 


194, except for the LISTO 
documents LIST as being shortened to L 

L.O would do the trick, is quite correct. For example L.01 
will cause a program to be listed with a space inserted between the line number and 

the 


* / 


capital 


i 


i 


0 


not 


(Remember 


to 


text. 


a 


program 

here). (See also the June issue of ELBUG). 


i. 


« i it 


* 


■ 


■ 


■ 


■ 


■ 


■ 


■ * • 


■ 


- # 


_ 4 # # * 
9 m r 

4-4*4 
4 m f • 4 f * 


4 


4 i 4 




■_* 


v 


■ 


* ■ 

i p » p 


* 


■ 


I 


I 


p * 4 


■> 4 * 


■ 


■ 


* 


■ 


* * 


■ 




T 




9 


w * « * 


-r 


* 9 


9 


9 


ft- 9 ft- 


9 




■ 


i 


P 




■ 










* 


4 


ft' * I 


14 4 


4 ft . * 


* 


4 * 


9 * 


a 


ft 


■B 


* 




4 ■ 4 

i f- I P ft 


m 


9 9 


■ 


fl 


V 


9- 


■ft -9 9 


ft 9 


4 


* fl 
4- ft i -ft i 


9 




■ 


P 


9 ■ P S 9 


9 


m 


- 




9 


9 


9*9 


n 


4 


« 


P 


ft 


9 


i 


■ 


■ ft 


-I 


4- 


4 


I- 4 


« ft- -fl 


4 ft 


4 


■ 


r 


4 i 4 » 


I- 


4 * 


4 9 fr 


t * 4 


4 4 4- 


4 




4 


‘fl 


■fl 


9 


9 ft 4 
4 ft 


fl 


fl 1 


i 


■ 






■ 


II 


m 


* 4 1 


nl 4 - 4 


ft 


ft 


■ i fl 


■ 


i 


4 * 


m 


m 


POSITION OF SYSTEM VARIABLES IN MEMORY 


P.S.Ganney 


all directly 


4 


The system variables 0% and A% to 
locations &400 to &468. As each is an integer, each has four bytes designated to it 

such that the value of A 


Z% are 


at memory 


So it is easy to 


is 1404 etc. 


system 
using the 


Ql 




variables from within machine code programs without 
CALL instruction (see pages 138 and 216 of the User Guide). 
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H ARMONOGRAPH 


By David C. Nichols 


Your Electron is capable of some really impressive displays. The 
program listed here from David C. Nichols is a good example of 
graphics combined with some mathematical theory which produces some 
fascinating patterns. 


The original Harmonograph is a 
simple mechanical device which can draw 
a wide variety of complex and intricate 
patterns. It consists of two rigid 
pendula that are free to swing in any 

direction, with the pivot point 
way down from the top, A table is 

attached to the top of one pendulun and 
a lever with a pen is attached to the 
top of the other. A drawing is made by 
fixing a 


operation, pressing the Escape key will 
pause the program. If the space bar is 

now pressed, it will carry on from 


where it was, but if Escape is pressed 


then it will start drawing 
another pattern. Note that you need to 


press Break to leave the program after 


it has started drawing the patterns on 


the 


screen, as there 


no exit 

facility built in. You may like to add 
one yourself 

done by testing if the Shift key is 
pressed at the same time that you press 
Escape with an INKEY -1, and performing 
an END if this test proved true). 


is 


piece of paper to the table. 


though (this could be 


9 


t he pen on 
setting the twD pendula swinging. Their 
independent motion produces a relative 
'wobble' of the pen which makes the 
patterns. By varying the heights of the 

pendulum 

direction 


and 


bobs, and the amount and 

the pendulum swings, 
types of pattern can be 


TECHNICAL DETAILS 


of 


simulates 


The 


the 


program 

Harmonograph by considering the motion 
of each pendulum to be composed of two 
sinusoidal components at right angles. 
Each component has an amplitude (Al, 

A4) and an angle of 


different 


produced. 


The program 
'Harmony 1 , and simulates the operation 
of a Harmonograph, although the program 
ignores friction to keep the coding 
simple. In real life the patterns would 
be determined by the operator setting 
the pendula swinging at random. The 
program simulates this by setting each 
pendulum to an initially random 

position and each is endowed with a 
random degree of momentum. To increase 

the program 
lookup table' for the 

complicated trigonometric calculations. 
This is done at the start of a program, 
and values are stored in an array for 

is the calculation 

the paus 

This 
in Part 4 of 
on Electron graphics in 


here is called 


A2, A3 

oscillation relative 
(R1, R2, R3 and R4). In addition each 


and 


pendulum has a frequency of oscillation 
(FI and F2). The relative motion of 
each pendulum is plotted on the screen 
giving a pattern similar to the 
called 


Spirograph' 


Ttie 


patterns, 
simulated by 1% 
being incremented within the REPEAT 
UNTIL loop at lines 350 to 410. 


passage of time is 


the speed of execution, 


a 


■ a 


C « m 


* ■ + + 

■ * - ■ n v iv i t 1 iii 

» m | + <p m P v *. * « 


•«*<**»*■ -HI 


m r m i P * A ■* * * * P P 

* * ■ * * * * i '* p * «■ 


-»«!««• 4 m 
■ * * 


fc- # m 


■ m 


* * 
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■ ■ « 


10 REM PROGRAM HARMONOGRAPH 
20 REM AUTHOR DAVID C. NICHOLS 

30 REM VERSION El .3 
40 REM ELBUG AUG/SEPT 1984 
50 REM PROGRAM SUBJECT TO COPYRIGHT 
60 : 

100 MODE 6:VDU23,1,0;0;0;0; 

110 COLOUR 129:COLOUR0 

120 PRINTTAB(13,12)"Please Wait." 

130 COLOUR 128:COLOUR1 

140 C%=255:Q%=C%/4:X%=640:Y%=512:A=400 
150 DIM sin(C%) 

160 FORI%=0TOC% 


later reference. It 


of these values that 




at the start of the program, 
technique was 
our 

ELBUG issue 4. 


USING THE PROGRAM 


the program, simply type it 
into your-Electron, 

then run 


To 


a copy on 
it. When it is in 
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SSBMH 


{'/ 


* 


i* 


170 sin{I%)-SIN(I%*2*PI/C%) 

180 NEXT 

190 MODE 4:VDU19,0,4,0,0,0,0 
200 ON ERROR GOTO 440 
210 VDU 23,1,0;0;0;0; 

220 R1=RND(C%):R2=(R1+0%)M0DC% 

230 R3-RND(C%):R4=(R3+Q%)MODC% 

240 Al=RND(A):A2=RND(A) 

250 A3=RND(A):A4=RND(A) 

260 F1=RND(1)*7:F2=RND(1)*9:B%=RND(C%) 
270 Xl=sin(Rl)*A1:X2=sin(R2)*A2 
280 X3=sin(R3)*A3:X4=sin(R4)*A4 
290 Yl=sin((Q%+Rl)MODC%)*A1 
300 Y2=sin((Q%+R2)M0DC%)*A2 

310 Y3=sin((Q%+R3)MODC%)*A3 
320 Y4=sin((Q%+R4)M0DC%)*A4 

330 M%=4 
340 I%=0 


350 REPEAT 
360 I%=I%+1 

370 Tl%=F1*1%ANDC%:T2%=B%+F2*I%ANDC% 
380 T3%=Q%+TUANDC%:T4%=QI+T2%ANDC% 
390 PLOTM%,XI*sin(Tl%)+X2*sin(T3%)+X3 
sin(T2%)+X4*sin(T4%)+X%,Yl*sin{Tl%)+Y2 
sin(T3%)+Y3*sin(T2%)+Y4*sin(T4%)+Y% 

400 M%=5 
410 UNTIL FALSE 
420 END 
430 : 

440 IF ERR017 REPORT: PRINT 
;ERL:END 

450 ON ERROR GOTO 190 
460 REPEAT UNTIL GET=32 
470 ON ERROR GOTO 440 
480 GOTO 350 


* 


* 


it 


at line 
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DISABLING THE KEYBOARD 


It's possible to disable the keyboard completely with the command *FX201,1. 
However, as you will no longer be able to give any commands, you must be prepared to 

*FX201,0 does the opposite 

commands can be used from within Basic, it's possible to stop the user of a program 
from interfering with a program until required to do so. 


and enables the keyboard, and as these 


oress Break. 
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ELBUG, 


P.O.Box 50 


St Albans, 


Herts. 


August 984. 


Dear ELBUG Reader, 


Regarding your enquiry about: 


MINI TEXT EDITOR 


by David Graham 

A text editor is one of the most useful computer applications 

likely to find for your Electron. It allows you to 

text, and then to arrange it into your own 
format. Here we present a short program that allows you to do just 

this. 


that you 
type in and edit any 


text editor you will find that it becomes very easy to 


Using a 


kinds of text 


Your 

Electron has the potential to be used as a word processing system 
but at present the software is largely unavailable 
start with the short text editor presented here. Using this you can 
enter and edit text, saving this to cassette. You could use these 
new facilities to send text 
at ELBUG, and you could also get a printed version with the new 

Plus-1 from Acorn or by running the same program on a BBC micro with 
a printer. 


, memos. 


We have made a 


to other Electron users, or to us here 


editing 
These are entered as 


The text editor 


the Electron's own 

text 


facilities to create and edit files of 


be easily saved 


lines 

loaded and edited 
and a printer). 
closing up of text, 
overflow on to the next line - 

may be to retype the paragraph. 


of Basic using the AUTO command, and may 

(and printed out if you have a Plus-1 expansion 

not allow right-justification or 
so inserting words could 

in which case the neatest thing to do 


The program does 


a 1ine to 


The function keys are used extensively in this editor, and you 
may well find it useful to make yourself a simple key strip to put 
above the keyboard. Type the program in 

using it. To use the text editor you will need to 
run the program first and then use the function keys, pressing Func 
and key 1 or 2 

text entry, but Func and key 2 will 

heading (you must replace ELBUG's address with your own here 
lines 1000 to 1030). Alternatively, pressing Func and key 1 will 
erase the address from the machine. 


it on your 


and 


Either key will initiate the AUTO mode for 


put your address as a letter 


alter 


Simply type in the text that you require, using 
when you reach the end of a line. If you go over the end of a line, 

reduce the line length. As the keys stand, 

and function key 8 will tab 

Function key 9 


Return 


use the Delete key to 


function key 6 will tab along 

to the right side for entering 


h LB(Jc 


A t ! G/SEPT 


1984 


v °l"me-i Issue 


;9 































you wish to insert a blank line (the Return key 
will not achieve this). Key 9 leaves the cursor indented 6 spaces to 
provide a paragraph indentation. Key 3 is not defined, and may be 
programmed with a word or short sentence that you use often (see the 

User Guide, page 131, for information on how to program the function 
keys). The key functions are all listed in the table below. 


should be used 


finished entering text. 


When you ha ve 

key. Then use the LIST command and editing keys to see your text and 
make any corrections 


just as you would edit a Basic program. 

return to mode 6 for better 
mode 


function key 7 will 
visibility- You can get back into 

key 0, which ;ust executes RUN. To return to entering text after you 
have escaped from the line numbering mode, you must type AUTO x 
where x is greater than the number of the last Basic line that holds 
previously entered text. For this reason 
mistakes at the end rather than as you go along. 


3 by pressing function 


use the SAVE 

and save and load as a normal program. This means 

conveniently has a copy of the editor with it 
at any time be reloaded and edited further 
do this you may need to run the 
function keys again. 


if 


cooiTiand, 

that each text 


the text created 


To 


name 


file saved. 


and may 
Remember that when you 


first to set up the 


program 


CUSTOMISING FOR YOUR PRINTER 


For those of you lucky enough to have an Acorn Plus-i expansion 

available. Pressing 


and a printer, two modes of printout 
function key 5 gives a printout with Basic line numbers, for ease of 

subsequent editing, while key 4 calls a routine which ignores the 
line numbers. With or without a printer connected 

will also display the same text on the screen, and shift-control 
together can be used to control the speed of scrolling. A number of 
possible options are available with this form of printout. Those 
chosen will depend on the paper feed mechanism on your printer and 
the number of lines per page required. 


these options 


As the program stands it will send a form feed character 

(check your printer manual to see whether your printer responds to 

this) after every 31 lines of text. This may be useful if you are 

printing double spaced text (achieved by typing *FX 6,0 
that this command has not already been used). If you requi 

different number of lines printed 
line 31052 of the program, changing the value 31 
required. If you do not want 
31052 completely. 


assuming 


a 


a form feed, then al 

to the number 


form feed at all, then erase line 


lines of text have 

alter 


If you want the program to pause after say 50 
printed 


that you can insert another piece of paper 


so 


wait=GET:L%=0. Pressing any key 

another page to be 

increase the spacing between lines, insert 31044 IF 

Each 10 in the VDU command adds an extra line feed 


IF L%>50 THEN 
when the program pauses in this way, will 

printed. To 
?K%=13 VDU 10,10. 
after each line of text. 


line 31052 to read 


'IliUC 


AlG/.Sf;pr 


1984 


’Olum 


1 Issue 9 



































printout 


without numbers using 


Incidentally, 


when you 


continuation line number. 


This is 


key 4, you are asked to enter 

just to allow you to start printout at any line of a page. Thus 
things are presently configured, if you enter 29 here, the program 
will print out 2 lines of text before doing its first form feed. For 
the benefit of printers using a continuous roll of paper (and for 
spacing down the letter head), printout is prefaced with a number of 
blank lines. These may be removed by deleting lines 950 to 990. At 
the end of the printout the screen will display a word count 
(inflated by the effect of double spaces) and the lines in the last 
page count. 


NOTE 


way in which text 


it 


Because of the 


is 


is 


capitals, and the 

would be printed 
as something indecipherable on the 

tokens). 


to avoid 

abbreviations for them. Thus P.0. 

PRINTOLDBox on the printout, and 
numberless printout (since Basic words are stored 


Box 


Table of Key Functions 


Function 

Starts the editor without a 


Key 


1 


heading address. 


Starts the editor including 


2 


a heading address. 


3 


Printout without line numbers. 
Printout with line numbers. 


4 


5 


Indentation for start of 
paragraph. 

Returns to mode 6. 


6 


7 


Tab for entering address. 


8 


Used for inserting a blank line. 
Runs the program. 


9 


0 


PROGRAM NOTE 


Because of the complex way that the function keys are 
up, it is only possible to put spaces in the definitions by using a 

an ASCII value of 32. It is important to type in the 
exact number of spaces for the key definitions in lines 25160 to 


space, and not 


25190. For key 6 there are 6 spaces, and there are also 6 spaces for 


key 9. Key 8 is entirely up to you, depending on the size of your 
address but 40 spaces is usually about right. 


Yours sincerely 


ELBUG 


KLBUG 
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27050 VDU28,0,22,79,0 
27052 PRINTTAB {2,18); *'E LBDG 
Text Editor 

27054 PRINT"with printout routine by la 
n Sinclair 

27060 PRINTTAB(0,22); 

27070 PRINT"PRESS KEY FI OR F2 TO START 
(F2 PRINTS ADDRESS) 

27080 PRINT'"OR F4 OR F5 FOR PRINTOUT 
27090 PRINT 
27200 ENDPROC 

31000 REM PRINTOUT WITHOUT NUMBERS 
31010 MODE3: PRINT 

31020 PRINTTAB(2)"Please choose continu 
ation or new print- type line number or 

zero.";:INPUT A$:L%=VAL(A$):W%=0 
31022 VDU2:N%=(PAGE+1) 

31024 REPEAT 
31026 N%=N%+?(N%+2) 

31028 UNTIL?(N%+1)“10 

31029 J%=N%+2 

31030 REPEAT 
31032 L%=L%+1 
31 034 F0RM%=1T06 

31035 PRINTCHR$(1) 

31036 NEXT 

31037 FORK%= J%+1 TO N%+?J%-1 

31040 PRINTCHR$(?K%); 

31042 IF ?K%=32 THEN W%=W%+1 

31044 IF ?K%=13 VDU 10 
31050 NEXT 

31052 IF L%>=31 THEN PRINTCHR3(12):L%=0 
31070 N%=N%+?J%:J%=N%+2 
31080 UNTIL ?(N%+3)=244:VDU 3 
31090 PRINT" Lines of last page 

Word total 
31100 END 


10 REM PROGRAM MINI TEXT EDITOR 
20 REM VERSION E0.2 03/07/84 

30 REM AUTHOR DAVID GRAHAM 
40 REM ELBUG AUG/SEPT. 84 
50 REM PROGRAM SUBJECT TO COPYRIGHT 


Mini 


11 


II 


60 : 


100 GOTO 25000 


II 


950 


II 


960 


VIII 


970 


980 


990 


I t 1 


1 000 
1010 


ELBUG, 

P 0 Box 5 


0 


r 


1020 


St. Alban 


s, 


1030 

25000 REM KEY SET ROUTINE 

25090 MODE3:*FXl8 
25100 *KEY0 RUN|M 
25110 *KEY1 DELETE1000,1100|M AUTO1000, 
1 0 | M 

25120 *KEY2 LISTl000,1099 M AUTO1100,10 


Her ts. 


If 11 * 


M 


f 


25140 *KEY4 GOTO31000[M 

25150 *KEY5 VDU2IM LISTl00,100001M VDU3 




M 


5160 *KEY6 
25170 *KEY7 MODE6IM 
25180 *KEY8 


IV 


n 


If 


ii 


25190 *KEY9 "|M 
25300 PROCWINDOW 

26999 END 

27000 DEF PROCWINDOW 
27010 S$= M I"+STRING$(9,CHR$32) 

27030 PRINTTAB(8,23);:FORS=lT08:PRINTS? 
;:NEXT 


II 


";L% 


1 l 


if 


w% 


11 


HINTS HINTS HINTS HINTS HINTS HINTS HINTS HINTS HINTS 


B. Wood s 

A REM statement may be inserted at the beginning of a data line provided that 
DATA is followed by a comma and the line is RESTORE'd before use. Here is an 
example: 


REM STATEMENTS IN DATA STATEMENTS 


**** 


10 REM staff DATA,NIGE,ALAN,DAVE, 

20 RESTORE 10 

30 REPEAT:READ name$:PRINT name$:UNTIL name$ 

40 END 

The REM may not otherwise be used on the same line as DATA. 


****** ** 
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BREAK FROM WITHIN BASIC 

It's possible to invoke the same action that takes place when you press the Break 
key. It can be done by the instruction, CALL !-4, which when written in to a program 
will give a fast exit from a program and reset the computer all together. 
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KAYAK KAPERS 


B> 'Surac 

4k. 


Kayak Kapers is a superb short game from 'Surac 1 that features a 

novel and ingenious sideways scroll to animate the motion of the 
River El Yako 

everlasting rapids. 


you struggle to avoid the rocks and survive the 


is a fast action game 
in which you paddle your flimsy kayak 
canoe down the fast flowing River El 
Yako, which is strewn with a large 
number of rocks and boulders. Your task 
is to negotiate as far down stream as 
possible, whilst avoiding the rocks 
to collide with them is fatal in such a 
fragile craft as yours! The river banks 
are equally hostile and will cause your 
immediate destruction if you hit them 
on your way. 


Kayak Kapers 


for example) but this is 
ensure maximum 
reason. 


much to 


speed as for any other 


game features three 


levels of 

play (1 being the easiest, and 3 the 
hardest), with the current level being 

the start of each game. 
Your controls are 'A' to move the canoe 


up, and ' Z’ to move it down the screen. 
Your current score is displayed at the 
top, and the latest high score at the 
bottom. Simple on screen prompts 

displayed. The program uses a specially 
written machine code routine to provide 

sideways scroll, and this has 
been shrunk down to the data statements 
at the end of the program. 


The program is delibertately short 
and demonstrates that good games don't 
have to involve lengthy programs. Of 
course, 

have been kept quite simple (the canoe 


the fast 


features of the display 


Because of the potentially destruc 
5s tive nature of this 


0 * 


P 


routine 
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program incorporates a simple error 
check, which will exit from the program 
if the data is wrong. If the data 
fault 
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330 IF A%<>&216F THEN PRINT"Bad data 


IT 


routine which is called to scroll the 
screen for each cycle of the program. 
The routine only scrolls the middle 
section of the screen, and 
&B00 onwards 
the function keys to 
peculiar definitions. You could easily 

routine in some of your own 
programs. As presented, the routine 
does not scroll the whole screen, (the 

left 


: END 


340 ENDPROC 
350 : 

360 DEF PROCplay 
370 H%=-1:REPEAT 
380 VDU 22,5:VDU23,1,0;0;0;0; 

390 VDU 19,0,4,0,0,0 

400 VDU 17,129:VDU28,0,4,19,0,12 

410 VDU 28,0,31,19,27,12:VDUl7,130 

420 VDU 28,1,3,18,1,12 

430 VDU 28,1,30,18,28,12 

440 VDU26,17,128 

450 PRINTTAB (4,1 5) "LEVEL (1-3) ; 

460 REPEAT T%=GET-48:UNTILT%>0ANDT%<4 
470 T%=T%-1:PRINTTAB(4,15)SPC12 
480 FORI%=0TO3:FORJ%=0TO3:SOUND1 ,~1 5, 

I%*10+10*J%,2:NEXT, 

490 S%=0:M%=6:N%=25:X%=15 

500 VDUl7,1:VDU31,19,6,241:VDU31,19,2 

5,241 

510 PROCscore(0):REPEAT 

520 VDUl7,128,1 7,2,31,2,X%,240 

530 PROCwa11s:CALL scroll! 

540 F%=!(&5800+X%*320+32) 

550 IF INKEY-66 AND X%<>6 X%=X%-1 
560 IF INKEY-98 AND X%<>25 X%=X%+1 
570 PROCscore(l):UNTILF% 

580 VDUl7,128:VDUl7,2 
590 VDU31,2,X%,240,17,130,17,1 ,31 ,4,16 
600 PRINT"Press RETURN 
610 *FX15 

620 SOUND0,-15,7,4 
630 REPEAT UNTILGET=13 
640 UNTIL FALSE 
650 ENDPROC 
660 : 

670 DEF PROCscore(A%) S%=S%+A% 

680 VDUl7,1 31,17,0:IF S%>H% H%=S% 

690 PRINTTAB(2,2)"Score ";S% 

700 PRINTTAB(2,29)"High 
710 ENDPROC 
720 : 

730 DEF PROCwa11s 

740 VDUl7,1:P%=RND(3)-2:Q%=RND(3)-2 
750 IF T%=1 AND RND(2)=1 P%=0:Q%=0 
760 IF M%+P%<6 P%=0 

770 IF N%+C%>25 Q%=0 
780 IF N%+Q%-P%-M%<8 P%=0:Q%=0 

790 M%=M%+P%:N%=N%+Q% 

800 VDU31,19,M%,240+RND(6),31,19,N%,2 

40+RND(6) 

810 VDU31,19,M%+1,240+RND(6),31,19,N% 
-1,240+RND(6) 

820 VDU17,3:F0RI%=1T0T% 

830 IF RND(4-T%)=1 VDU31,19,RND(N%-M% 
-1)+M%,240+RND(6) 

840 NEXT:ENDPROC 
850 : 

860 DATA "78A95E8D110BA940 


resides 


at 


note that this causes 


contain 


use this 


top and bottom 6 
untouched). This could be altered, but 
this 


knowledge of screen 
memory addresses, and it is beyond the 


requires a 


scope of this article 


cover these 


to 


va1ues. 


In order to incorporate the scroll 
routine into your own programs, you 
need lines 270 to 340 (the procedure to 
read in the data) and lines 860 to 960 
(the data itself) to be present in your 
program. 

routine, you need to call PROCread. The 
scroll routine is then used by CALL 
scroll! from within Basic (for example, 

see the end of line 530). 


Before you can use the scroll 


# # * * 




* * I 


- ■ 


k ■ 


* V V P 


* ■ 


# R 


■ I 


* I V P 4- P 


* m 


m- m w m 


# P 


- i 


■ * 


10 REM PROGRAM ERAPIDS 
20 REM AUTHOR 'SURAC* 

30 REM VERSION El.0 

40 REM ELBUG AUG/SEPT 1984 

50 REM PROGRAM SUBJECT TO COPYRIGHT 


If 


60 : 


100 ON ERROR GOTO 980 
110 MODE 4:*FX18 

120 PROCchars 
130 PROCread 
140 PROCplay 
150 END 

160 : 

170 DEF PROCchars 

180 VDU 23,240,192,240,252,255,255,25 
2,240,192 

190 VDU23,241,0,12,62,110,84,120,16,0 
200 VDU23,242,0,48,120,92,116,88,48,0 
210 VDU 23,243,0,56,92,60,116,88,32,0 
220 VDU 23,244,0,0,12,52,44,24,0,0 
230 VDU23,245,0,12,62,106,126,44,16,0 

240 VDU 23,246,0,14,58,126,54,28,8,0 
250 ENDPROC 
260 : 

270 DEF PROCread 
280 RESTORE:scroIl%=&B00 
290 FORI%=0TO10:READ A$:FORJ%=0TO7 
300 ?(scroll%+J%+I%*8)=EVAL("&"+MID$( 
A$,J%*2+1,2)) 

310 NEXT,:A%=0:FORI%=0TO88 
320 A%=A%+scrol1!?I%:NEXT 


II 


;H% 


It 
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BUILD A HOUSE 


Bv Nick l)av 

m *f 


This program will delight all those who enjoy seeing colourful and 
detailed pictures being generated by computer. We think these 

have particular appeal to younger children, who will 
watch with growing anticipation to 


the cat will finally 


The program listed here runs in mode 
2 to provide the maximum number of 
colours. When you run the program, 
after saving it first safely to 
cassette, it will allow you to build up 
a detailed picture of a house and 
garden. Each time the space bar {or any 
other key) is pressed, the next part of 
the picture will be added to the 
existing display and the name of this 

at the top of the 


The 


to comp 1 e te the 
white cat which will 

in one 

to provide extra 


picture is a 
randomly 
different 


places, 


procedure to draw that part of the 
display. The procedure PROCsopr, which 
is called every time, in turn calls 
three further procedures 
delay, produce a sound, and print the 
name of this part at the top of the 

display. 


Once the picture is complete, the 
whole scene is redrawn as it might 

with the moon shining 
down from above. A few further changes 
then take place to the picture before 
the final display is reached, but it 
would spoil your fun to describe them 
here. 


to create a 


appear at night 


The display makes use of many of the 
techniques which 
describing in our 
graphics, including both user defined 
characters and the drawing and plotting 
of lines and triangles. If you follow 
the program carefully you should be 
able to 

produced. The structure of the program 
also means that it is very easy for you 
to alter any of the display or add some 
additional features of your own. 


have 


we 


series on Electron 


PROGRAM NOTES 


If you examine the program listing 
you will see that its layout is quite 

obvious, a 

naming the next feature 


sequence of instructions 

and calling a 


how each feature 


is 


* + 


* -V 


******* 
■ b * m ■ * i 


* # i a # * f 


it B * a r ■ + 
******* 


■ 1 ■ * ■ 


p * p * 1 * 


■ #■ 


10 REM PROGRAM HOUSE 
20 REM VERSION E0.2 
30 REM AUTHOR N.DAY 
40 REM ELBUG 
50 REM PROGRAM SUBJECT TO COPYRIGHT 
60 : 

100 ON ERROR GOTO 1940 
110 MODE2 

120 ENVELOPE1,3,0,0,0,1 ,1 ,1,126 
4,126,80 

130 VDU23,I,0;0;0;0;0;:*FX11,0 
140 *FX4,1 
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150 CLS:VDU24, 100;50;1 200;800;:VDU28, 
0,4,19,3:GCOL0,1 34:CLG:inc=0 

160 A$="grass":PROCsopr:PROCdraw(l00, 

50,1200,150,2) 

170 A$="wall":PROCsopr:PROCdraw(200,1 

50,800,500,1) 

1180 A$="br icks" : PROCsopr : PROCbr icks 
190 A$="roof":PROCsopr:PROCroof 
200 A$ : =" chimney-stacks” : PROCsopr : PROC 
stacks(1) 

210 A$="chimney-pots”:PROCsopr:PROCpo 


ts 


220 A$="doorway": PROCsopr: PROCdoor (5) 

230 A$="windows”: PROCsopr: PROCwindows 


(5) 


:PROCsopr:PROCdrapes 

:PROCsopr:PROCf 


240 A$="curtains 
250 A$="window-frames 


440 END 
450 : 

1000 DEFPROCdraw(a,b,c,d,e):GCOL0,e:MO 
V£a,b:MOVEc,b:PLOT85,a,d:PLOT85,c,d:END 
PROC 
1010 : 

1020 DEFPROCdrawN(a,b,c,d,e):GCOL0,e:M 
OVEa ,d: DRAWC, d: DRAWc, b: END PROC 

1030 : 

1040 DEFPROCdrawNu(a,b,c,d,e):GCOL0,e: 
MOVEa,d:DRAWa,b:DRAWc,b:ENDPROC 
1050 : 

1060 DEFPROCwait 
1070 *FX15,1 

1080 REPEATUNTILGET=32:ENDPROC 

1090 : 

1100 DEFPROCsound:inc=inc+4:SOUND!,1,( 
97+inc),5:SOUND2,1,(113+inc),5:SOUND3,l 
,(125+inc),5:ENDPROC 
1110 : 

1120 DEFPROCprint:1%=LEN(A$)/2:PRINTTA 
B(9-1%)A$:FORW=1TO500:N EXT:ENDPROC 
1130 : 

1140 DEFPROC1ightsout 
1150 IFTIME>200THENPROCdraw(250,200,35 

0,300,4) 

1160 IFTIME>400THENPROCdraw(650,200,75 
0,300,4) 

11 70 IFTIME>600THENPROCdraw(250,350,35 
0,450,4) 

1180 IFTIME>800THENPROCdraw(450,350,55 
0,450,4) 

1190 IFTIME>1000THENPROCdraw(650,350,7 
50,450,4) 

1200 ENDPROC 
1210 : 

1220 DEF PROCsopr 

1230 PROCwait:PROCsound:PROCprint 

1240 ENDPROC 

1250 : 

1 260 DEFPROCbricks:GCOL0,3:FORB=l 50TO4 
75STEP25:MOVE200,B:DRAW800,B:NEXT:FORB= 
2 50TO750STEP50:MOVEB,150:DRAWB,500:NEXT 
:ENDPROC 


rames(7) 


260 A$="window-sills":PROCsopr:PROCsi 
lls(250,350):PROCsilXs(250,200):PROCsil 
ls(450,350):PROCsills(650,350):PROCsill 
s(650,200) 

270 A$="garage":PROCsopr:PROCgaragero 
of(1,0):PROCgardoor(7) 

280 A$="door":PROCsopr:PROCdoor(7) 

290 A$="doorknobs":PROCsopr:PROCknobs 
300 A$="letterbox”:PROCsopr:PROCletter 
31 0 A$="doorknocker”:PROCsopr:PROCkno 


ck 


320 A$="path": PROCsopr :PROCpaths (5) 
330 A$="drive":PROCsopr:PROCdrive(5) 
340 A$="flowers":PROCsopr 

350 F0Rf=lT08:READa,b:PROCflower(a,b) 

:NEXT 

360 DATA250,125,325,100,375,110,625,1 

00,675,110,750,120,1050,125,1150,100 
370 A$ 2sf, car ” : PROCsopr: PROCcar 

380 A$="fence":PROCsopr:PROCfence 
390 A$="birds":PROCsopr:PROCbirds 
400 A$="cat":PROCsoprrPROCcat 
410 now=TIME:REPEATUNTILTIME=now+1 000 


:CLS 


420 PROCnight :CLpS : *FX1 5,1 
430 TIME=0:REPEAT:PROClightsout:UNTIL 
FALSE 
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1270 : 

1 280 DEFPROCroo f: PROCd raw (2 50,500,7 50, 
650,0):PROCgables:ENDPROC 

1290 : 

1300 DEFPROCgables:MOVE750,500:MOVE750 
,650:PL0T85,850,500:MOVE250,650:MOVE250 
,500:PLOT85,150,500:ENDPROC 
1310 : 

1320 DEFPROCstacks(c):PROCdraw{250,600 
,350,700,c):PROCdraw(650,600,750,700,e) 

:ENDPROC 

1330 : 

1340 DEFPROCpots: PROCdraw(270,700,290, 
750,0):PR0Cdraw(310,700,330,750,0):PROC 
draw(670,700,690,750,0):PROCd raw(710,70 
0,730,750,0):ENDPROC 
1350 : 

1360 DEFPROCwindows (c) : PROCd raw (2 50,20 
0,350,300,c):PROCdraw(250,350,350,450,c 

):PROCdraw(450,350,550,450,c):PROCdraw( 
650,200,750,300,0):PROCdraw(650,350,750 
,450,c):ENDPROC 
1370 : 

1380 DEFPROCdrapes:PROCcurtains(250,4 5 
0):PROCcurtains(450,450):PROCcurtains(6 
50,450):PROCcurtains(250,300):PROCcurta 
ins(650,300):ENDPROC 
1390 : 

1400 DEFPROCcurtains(x,y):PROCdraw(x,y 
-100,x+25,y,4):PROCdraw(x+70,y-l 00,x+1 0 
0,y,4):ENDPROC 
1410 : 

1420 DEFPROCf rames(c):GCOL0,c:MOVE250, 
450:DRAW350,450:DRAW350,350:DRAW250,350 
:DRAW250,450:MOVE300,450:DRAW300,350:MO 
VE250,400:DRAW350,400 
1430 MOVE450,450:DRAW550,450:DRAW550,3 
50: DRAW4 50,350: DRAW4 50,450 :M0VE4 50,400: 
DRAV^'550,400: MOVE500,350: DRAW500,450 
1440 MOVE650,450:DRAW750,450:DRAW750,3 
50:DRAW650,350:DRAW650,450:MOVE700,350: 
DRAW700,4 50:MOVE650,400:DRAW750,400 
1450 MOVE650,300:DRAW750,300:DRAW750,2 
00: DRAW650,200: DRAW650,300 :MOVE650,250: 
D RAW750,250: MOVE700,200: DRAW700,300 
1460 MOVE250,300:DRAW350,300:DRAW350,2 

00:DRAW250,200:DRAW250,300:MOVE250,250: 
DRAW350,250:M0VE300,200:DRAW300,300:END 
PROC 

1470 : 

1480 DEFPROCsills(x,y): PROCdraw(x,y-l 0 
,x+100,y,7):ENDPROC 

1490 : 

1500 DEFPROCgarageroof(c,r):PROCdraw(8 

00,340,1000,350,0):PROCdraw(990,150,100 

0,350,c):MOVE800,400:MOVE800,350:GCOL0, 

r:PLOT85,1000,350:ENDPROC 
1510 : 

1520 DEFPROCgardoor(o):PROCdraw(800,15 
0,990,340,0):ENDPROC 


1530 : 

1 540 DEFPROCdoor (c) : PROCd raw (4 50,1 50,5 
50,300,c):ENDPROC 

1550 : 

1560 DEFPROCknobs:GCOL0,0:PLOT69, 470,2 
20:PLOT69,900,170:ENDPROC 

1570 : 

1 580 DEFPROCletter :PROCdraw(485,195,51 
5,200,0):ENDPROC 

1590 : 

1600 DEFPROCknock:PROCdraw(497,250,503 
,275,0):ENDPROC 

1610 : 

1620 DEFPROCpaths(c):PROCdraw(450,50,5 
50,150,c):PROCdraw(550,125,800,150,c):M 
OVE450,150:M0VE4 50,50:PLOT85,400,50:MOV 
E550,150:MOVE550,50:PLOT85,600,50:ENDPR 


OC 


1630 : 

1640 DEFPROCdrive(c):PROCdraw(800,50,1 
000,150,c):MOVE800,150:MOVE800,50:PLOT8 
5,750,50:MOVEl000,150:MOVEl000,50:PLOT8 
5,1050,50:ENDPROC 
1650 : 

1660 DEFPROCflower(x,y):MOVEx,y:OCOL0, 
2:DRAWx,y+70:VDU23,245,0,0,0,0,16,0,0,0 
:VDU23,246,16,84,56,238,56,84,16,0:VDU5 
:GCOL0,0:MOVEx-2 0,y+ 90:VDU245:VDU 8:GCOL 
0,3:VDU246:GCOL0,0:MOVE500,600:VDU4:END 
PROC 
1670 : 

1680 DEFPROCcar:PROCdraw(825,100,850,1 

50,0):PROCdraw(950,l00,975,150,0):PROCd 

raw(800,150,1000,160,7):PR0Cdraw(810,16 
0,990,240,4):PROCdraw(820,240,980,300,4 

):PROCdraw{830,250,970,290,0) 

1690 PROCdraw(816,l60,824,200,1):PROCd 
raw(980,160,984,200,1):ENDPROC 
1700 : 

1710 DEFPROCfence:GCOL0,7:F0RX=88T0120 
0STEP44:PROCdraw(X,50,X+15,200,7):NEXT: 
PROCdraw(100,160,1200,170,7):PROCdraw(1 

00,90,1200,100,7):ENDPROC 
1720 : 

1730 DEFPR0Cbirds:VDU4:VDU5:VDU23,240, 

0,0,40,84,146,0,0,0:VDU23,241,0,0,198,4 
0,16,0,0,0:OCOL0,0:MOVE800,750:VDU240:M 
OVE900,650:VDU240:MOVEl000,600:VDU241:M 
0VE1100,700:VDU240:MOVE600,600:VDU4:END 
PROC 
1740 : 

1750 DEFPROCcat:VDU4:VDU5:VDU23,242,0, 

7,95,127,191,231,204,0:VDU23,243,0,192, 
224,248,244,242,228,136:GCOL0,7:PROCpos 

:MOVEc,t:VDU242:VDU24 3:QCOL0,0:MOVE500, 

600:ENDPROC 
1760 : 

1770 DEFPROCpos:p=RND(4):c=500:t=600:1 
Fp=1THENc=810:t=375 
1780 IFp=2THENc=250:t=725 
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1790 IFp=3THENc=500:t=650 
1800 ENDPROC 
1810 : 

1820 DEFPROCnight:QCOL0,132:CLG 
1830 PROCroof:PROCstacks{4):PROCpots:P 
ROCdrawN{450,1 50,550,300,6) :PROCwindows 
(3):PROCdrapes:PROCgarageroof(0,0):PROC 


1870 VDU5:VDU23,248,0,112,24,12,12,12, 

24,112:VDU23,249,0,0,0,0,16,0,0,0:GCOL0 
,7:MOVE1 000,750:VDU248:MOVE150,700:VDU2 
49:MOVE400,750:VDU249:MOVE900,600:VDU24 
9:MOVE!000,650:VDU249:MOVE!150,640:VDU2 


49 


1 880 VDU4:COLOUR0: ENDPROC 

1890 : 

1900 DEFPROClo:SPL$ 

$):IFMID$(SP$,ch,1)= 

TO!920 

1910 SPL$=SPL$-K:hr$ (ASC (MID$ (SP$,ch, 1) 
) +32) 

1920 NEXT:ENDPROC 

1930 : 

1940 ON ERROR OFF 
1950 *FX4 
1960 *FXl2 

1970 MODE 6:IF ERR=17 END 
1980 REPORT:PRINT" at line " ;ERL 
1990 END 


1840 GCOL0,6:MOVE250,700:DRAW350,700:D 
RAW3 50,600:MOVE350,650:DRAW6 50,650:MOVE 
650,700:DRAW750,700:DRAW750,600:MOVE750 
,650:DRAW850,500:MOVE800,500:DRAW800,1 5 
0:MOVE800,400:DRAWl005,350:DRAW!005,150 
1 850 PROCdrawNu(240,190,350,310,6):PRO 
CdrawNu(240,340,350,460,6):PROCdrawNu(6 
40,190,750,310,6):PROCdrawNu(440,340,55 
0,460,6):PROCdrawNu(640,340,750,460,6) 

1860 FORX=88TOl200STEP44:PROCdrawN(X,5 
0,X+15,200,6):NEXT:PROCdrawN(100,160,12 
00,170,6):PROCdrawN(l00,90,1200,100,6) 


II II 


:FORch=1TOLEN(S P 
SPL$=SPL$+ 


It II 


11 


:GO 


14 


II 


8D100BA9O0A00F99 
00008810FA18AD10 
0B69408D100BAD11 
0B69018D110BC979 


950 DATA "F7EE420BEE4 50BEC 
960 DATA "450BD0EA58604446 
970 : 

980 ON ERROR OFF 
990 MODE 6 

1000 IF ERR017 REPORT:PRINT" at line 
;ERL 

1010 END 


870 DATA 
880 DATA 

890 DATA 
900 DATA 
910 DATA "D0E1A279A95F8D42 
920 DATA "0B8D450BA9808D44 


If 


II 


II 


II 


It 


930 DATA "0BA9908D410BA000 
940 DATA "8900009900000800 


11 


II 


It 


POSTBAG POSTBAG POSTBAG POSTBAG POSTBAG POSTBA 


micro ADVAL is only valid with values 
from 0 to 4, and using ADVAL in the way 
described produces similar 
that machine. 


SQUARE WAVES 


Dear Sir, 


After reading the article in the 
March issue of ELBUG about using BBC 

on the Electron, I 


micro programs 
experimented on my machine 
the ADVAL statement had any 
discovered some interesting results. I 
wrote this program to demonstrate these 
results graphically: 

10 MODE 0 


SCREEN FREEZER 


to see if 


Dear Sir, 


It 


II 


program (ELBUG 


Screen Freezer 


Your 

issue 7) is excellent and I thought you 
would like to know that "Felix in the 


Factory" from Program Power 
very well indeed. 

I enjoy your magazine tremendously 

(only wish it were longer). 


20 FOR X=0 TO 1279 
30 DRAW X,ADVAL(x)/I00 
40 NEXT X 

This produced a very rough square wave 
pattern [very rough 

I cannot explain 
seem to disprove the statement 
28 (table 1) of the article. 


T om Ede 


Reply: 


Ed.,. Although 


write to us we 
might publish a table of all the 
programs that you tell us can be 
'frozen' in this way. Regretfully 
perhaps, we have no plans at present to 

the number of 


If other 


these results, they 


Tim Stephenson 


Reply: 


pages in the 


either of the 
reasons for these results. However, it 
should be noted that even on a BBC 


We 


not 


magazine. 
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MONITORS FOR THE ELECTRON 


Reviewed bv Sieve Fox 

t 

and Hugh Brown-Smith 


Fox discussed some of the points to 
think about when choosing a TV or monitor to use with your Electron. 
This month Steve turns his attention to 
monitors you might be tempted to consider buying, and gives you his 
expert opinion. Hugh Brown-Smith describes the rather more expensive 

Microvitec Cub. 


article Steve 


In a previous 


two of the cheaper colour 


Grundig 'Super Colour' C2402 GB 
TV/Monitor supplied by Newark Video 
Centre, 108 London Road, Balderton, 
Newark Notts. NG24 3AQ. Price {to 
ELBUG members) £260 inc. VAT and 


3AQ. The changeover from TV to RGB and 
back is controlled by a switch on the 
back. 


First impressions of the monitor, 
viewing a TV picture, were very favour¬ 
able. Definition was crisp, geometry 
good and the colours natural. I turned 

the colour control to the 
the range and noted that the resulting 

black and white picture was neutral in 
tint. There wasn't any suggestion of 
coloured edges and the black level 
remained constant whether the scene was 
light or dark. I then tried the RGB 
mode. Computer-generated screens tend 

to be over-colourful and this effect 
can be quite objectionable on certain 

picture-tubes whose 

of strident hue. The tube used by 
Grundig is excellent 
the primary colours are strong but 
pure. 


carriage. 


Reviewer 


off" end of 


it 


GRUNDIG "SUPER COLOUR" TV/MONITOR 

This 14" Portable TV Receiver is of 
German origin and is distributed in the 
U.K. by Grundig International of Rugby. 
It is very modern in design and incorp- 

infra-red remote control of 


channel 


volune, brightness, 
colour, loud-speaker muting and reset. 

able to 


The receiver is 


store, while 


switched off, tuning data for up to 30 
channels, the same tuning buttons 

all channels. A miniature 


phosphors 


servicing 


jack is supplied to allow TV sound to 


be 


to an 


though the quality of 
recording is likely to be poor due to 
overloading) and a twin-rod V-aerial 

(i t may be 


programs described in the 
previous article confirmed these 
impressions. The white grille and dots 
pattern showed no coloured fringes and 
no perceptible geometrical distortions. 
The screen margins on this receiver are 
practically rectangular, only the 

corners being rounded. The 
scanning was also correctly adjusted 
{whether by the factory or by Newark 

Video Centre) 


The 


is fitted to the 
unplugged if an external 

used). 

black plastic incorporating a 
at the top for lifting: its weight is 

comparatively modest (about 251b). A 
flap at the front gives 
normal 


aerial 


is 


The case of the 


is 


access to the 


presets, including contrast. 
When the flap is closed it depresses a 

button which brings into 
automatic frequency correction 
which prevents 

off tune. 


that the entire 


picture was visible. With TV receivers, 
this job all too often has to be 

out by the purchaser, as the 
margins are often rounded 
factory usually sets the picture so 

it are lost at the top, 


ac 1 1 on 


an 


device 


the receiver drifting 


and the 


that parts of 


A straightforward modification of 

is carried out {with the 
approval of Grundig) by certain dealers 
to enable direct RGB connection, via 
DIN plugs to the BBC micro or Electron. 
The receiver being reviewed was modi¬ 
fied by Newark Video Centre, 108 London 
Road, Balderton, Newark, Notts, NG24 


bottom and edges. 


the 


The ’colour bars 


program 


showed a generally smooth transmission 
from one colour to another without any 

ove r shoo t 


undershoot, 


serious 

although the Grundig is not as good as 
the Microvitec Cub in this respect. 


or 
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The 'small print' test showed that 
the Grundig is as tolerable for word 
processing as any other standard 
resolution colour monitor. Its 
excellent convergence {absence of 
coloured edges all over the screen 
area) helps a lot and provided the 
brightness and contrast are carefully 
adjusted I would think it usable for 
periods of up to, say, an hour without 
too much eye-strain. 

The EHT Regulation test is a severe 

one, and all monitors except very 
expensive professional ones must be 

expected to show geometric changes in 
the picture as the CRT beam current 
rises or falls. When the raster is 
white the current drain is at a maximum 
and the EHT is reduced. The Grundig 
shows a small increase in the raster 
size under these conditions, with a 

bowing inwards of the edges (pincushion 
distortion), but the effect is not 
excessive nor abnormal. 

No interaction of the RF receiving 
circuitry was perceptible when in the 
RGB mode, but if TV is selected without 
switching off or disconnecting the 
micro, synchronizing problems appear. 

A minor but annoying quirk of the 
Grundig circuit is that if the monitor 
is switched on at the mains plug it 
goes into "standby" condition and does 
not display a picture (even in RGB) 
until a channel is selected with the 
remote controller. This does not happen 
if the receiver is switched in with its 
own on/off switch. 

The TV receiver as such is sens¬ 
itive and gives a good clean picture in 
good reception areas, although results 
using the 'V' aerial provided will of 
course be unpredictable. My only crit¬ 
icism is that the AFC circuit mentioned 
in my first paragraph introduces a 

small but perceptible amount of noise 
(or "grain") into the TV picture and to 

avoid this the control flap has to be 
left open. 

Newark Video Centre sell this 
monitor (carriage paid) to ELBUG 
members at £260 - a discount of £15 on 
the normal price of £275. Other firms 
appear to charge more. 


It is an excellent monitor in its 
class and I can recommend it as very 
good value. 

I ' i" *_ r - “ m " , “ . “ _ B '_*t, 1 _ 1 _ 1 *■ * 1 1 -■ i# * • ■»■(*■■■-■■«■>■ ■ ■>■■■« w -8' + m * * + -8 ir -* ■ + m- ir - * r i- » -t * 
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Electrohome E3CM1302-1 RGB Monitor 

supplied by Opus Supplies Ltd., 

158, Camberwell Road, London SE5 0EE. 
Price £221.89 inc. VAT and carriage. 

Reviewer : Steve Fox. 



ELECTROHOME BCM 1302 RGB MONITOR 

These monitors are manufactured for 
Electrohome Electronics, a Canadian 
firm, by the Japanese JVC company. They 
are imported into the UK by Opus 
Supplies Limited who sell direct to 
the public. They are available in two 
forms: "medium" and "high" resolution. 
The main difference between the two is 
that the medium-resolution model uses a 
standard picture tube of the type used 
in domestic TVs whereas the high 
resolution version uses a screen of 
finer structure - although still not as 
fine as that used in more expensive 
monitors. 

The monitor is fitted with two 
inputs, one a subminiature "D" 
connector for the Apple II, the other 
a 7-pin DIN connector. Connections on 
the latter require positive sync 
pulses. The BBC/Electron normally 
feeds negative syncs although a link 
can be changed over to reverse the 
polarity. However, Cpus Supplies save 
you the trouble by supplying a hybrid 
lead which feeds negative syncs into 
the Apple input and the other signals 
into the DIN connector. This is an 
effective if slightly untidy solution 
to the problem. 
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At the inclusive price of £221.89, 
this monitor represents fair value for 
money, though the well known and 
impressive Microvitec 

little more. 


The monitor 


two-tone 

plastic, pleasant and robust, and the 


is 


only accessible controls are brightness 


and on/off. First impressions when I 

the "medium 


costs only 


a 


arcade game on 


n 


ran an 

(i.e. standard) monitor were of a good 

bright picture very suitable to the 
subject. 


I have not checked the "high 
resolution" version, but as its design 

other, I 

have no doubt that it suffers from the 
same problems. 


very closely resembles the 


However, when I ran the monitor 

tests, it became evident that all was 
not well. The white grille and dots 

showed coloured fringes at the edges 
of the picture and the vertical 

was incorrect. Cpus Supplies 
had kindly furnished me 
data, including a circuit diagram, so 
I removed the back of the 
found that the centering could be 
corrected (near enough) by changing a 
3-position link. But I was 

to reconverge 
the monitor and could not entirely 
eliminate the coloured fringes. The 
next problem was that the whites were 
pink. I corrected this to my 
satisfaction by adjusting 
green channel-gain presets. 


■ * 
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* * ■■ ft 

# * ■' 


Mi m 


■■ fi # * 


m p 


if * 


P « 


P a 


i v 


i i i 


Microvitec Cub 1431 MS Colour Monitor 
Microvitec PLC 


Futures Way, 


• f 


Bolling Road, Bradford 
West Yorkshire, BD4 7TU. 


with service 


f 


Price £238.85 inc. VAT and carriage. 


set and 


Reviewer : Hugh Brown-Smith 


MICROVITEC C UB 

The Microvitec Cub has become 
something of a standard for colour 
monitors used with the BBC. This is 
largely due to the volune of units 
supplied to educational establishments 
under the D.O.I. scheme. The fact that 
so many have been sold has perhaps 
biased many home 

the Cub. So is this the best available, 

should one consider other 
alternatives? 


successful in my efforts 


the red and 


into choosing 


When I ran the 'colour bar* 
program signal I noticed a black band 
to the left of the green bar and a 
bright band to the right of it and 
other bars showed a similar but less 

at the circuit 
diagram but could find no tr i inning 
adjustments to correct this. 


or 


The monitor itself looks very smart 

robust, 


marked effect. I looked 


being made 


the 


and 

entirely of sheet metal finished in a 
two tone brown. The lack of a carrying 
handle could make it awkward to move 


fine print 
marred by the colour fringes, although 


test was of course 


M 


II 


The 


the monitor and computer together, but 
this does not present a great problem. 
Strength and robustness 
been a theme of the design, giving the 


to make the letter 


illegible. The monitor showed no 

geometric changes when I ran 

the EHT regulation test. 


seem to have 


appearance of being able to withstand 


easily all but the most determined 
knock. The 14 inch 


Viewing pictures 
definition was subjectively good, being 
at times emphasized by the bright green 
lines. However, fine green 
was quite difficult to read. 


on the 


occupies 

almost the whole of the front panel 
with a small indicator to the bottom 
right showing when the monitor is on. 


The only controls available outside 

an on/off switch and 
contrast, both situated on 
panel, but within easy reach if you 
want to make adjustments. The lack of a 
brightness control does not present any 
problems as the contrast will allow 
more than adequate adjustment over the 

The factory 
set condition of the internal controls 
seems to be accurate and the picture 


Further enquiries have convinced me 

monitor reviewed was not 
exceptional and that its shortcomings 
are due to a pretty basic design rather 
than to sub-standard components. That 

have already indicated, the 
performance was capable of 
improvement by a qualified engineer, as 
some of the 
adjusted. 


the case 


that the 


the rear 


said, as I 


monitor's 


presets were not properly 
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No problems were 
the EHT Regulation test. In 
performance 


position is good, although on the 
review model the picture was very 
slightly off centre. Also on the rear 
panel is the RGB input via a six pin 
Din plug. A lead is supplied with the 
monitor for use with BBC or Electron 
machines. 


fact the 


than 


was 


a very marginal 
distortion of geometry visible just in 


expected with only 


the centre of the outer edges. 


All in all the Microvitec represents 
very good value for money combined with 
a good reliable service. It seems quite 


Linearity of these monitors is 
excellent as is the colour definition, 
80 column definition is far better than 

TV but lacking slightly in 
readability. This is due to slight 
fringing but without a ‘High 

Resolution' tube such a monitor cannot 


rare for problems to occur, and because 


of the quantity in service it is not 
difficult to find someone to undertake 


a 


be 


to produce an image 
suitable for long use without causing 


[We have included on this month's 

a further 


magazine 

program called TVTEST, which displays a 
colour 


potential eyestrain. 


on the screen. This 


test card 


The main problem with the Microvitec 

is an annoying flicker which can be 
quite off-putting if the 


combines several of the features of the 


previous test programs, but it is a 
program which would be tedious to type 
in accurately from the keyboard. For 
this 

program in the magazine. 


viewed at close distances for prolonged 


periods. 


This 


inherent on all 


not printing the 


we 


Cubs although some are better than 
others. 


Ed.] 


If you decide to buy one, try 


and 


MONOCHROME MONITORS 


the 


to go to 

particular one you are going to buy 
working first. 

apparent at the top of the 
although it is also 
middle. 


In this review, all the monitors 
have been of the colour type. 
Monochrome monitors are also available 
which have the advantage of being of 

very high resolution and relatively 
cheap. Such monitors (for example those 
by Novex) are available in a number of 

the black 


The flicker is most 


in the 


The test programs published in ELBUG 

used to put the monitor 
through its paces, and the results 
described below. 


different screen types from 


and white through green and black to 

amber and black. The purpose of 
alternative colours 


is to relieve eye 


The white bar and dot test revealed 


and the final 


choice 


would 


obviously 


be 


that the top corners of the screen were 
adjusted badly and set just out of 
view. This is not 

models so again it is worth seeing one 
first. 


personal 


on 


the case 


on all 


If you are particularly 

monitor capable of displaying 80 
columns of text on the screen (for word 

then 


in a 


The colours shown in the colour bar 

test were all of good definition and 
clarity. There was also no problem 
where two colours met. 


example) 

monochrome monitor may be a better 
choice and the different colours still 


for 


a 


appear as different shades of grey. You 
could still use your domestic TV if you 

wanted a colour picture for games. 

range depending on make and 

a guide you could 
£110 for a high 


The 80 column text 


from 

above, but no more than would 
expected and nothing to worry about. 


slight fringing. 


resolution, but 


be 


expect to pay £90 


resolution model. 
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MODE SELECTION ON BREAK 


when you press the Break key, where n is the 


*FX255,n selects 


the 


sc r een mod e 


mode that you want with 8 added to it. 


ELBUG 


ALG/SEPT 1984 


Volume-1 Issue 9 





23 


ELECTRON GRAPHICS (Part 9) 


by Mike Williams 


In last month's article in this series we looked at some of the ways 

of manipulating the colours used in graphics displays on the 
Electron using the QCOL and VDU19 instructions. This month we shall 
concentrate solely on further uses of QCOL, and show how you can use 
this to produce a wide variety of shades in the different colours. 


let's just look at the 
versions of GCOL as documented in the 
User Guide. The format of the QCOL 
instruction is: 

GCOL p,c 

where 'p' is a number indicating the 
plotting mode to be used, and *c' is a 
number which specifies a colour {with 
128 added for a background colour). 
Last month we concentrated on the case 

Exclusive-OR 


First of all 


where 

plotting. This is particularly valuable 


P=3, 


known 


to produce a moving 


when we wan t 
graphics display. We will now examine 
briefly each of the different plotting 
modes in turn. In the examples that 
follow the colours referred to will be 


We then set the logical colour to 2 

(yellow), 

1 1 OR 2 
(you can 

PRINT 1 OR 2 <return> 


but with OR plotting, 
has a logical value of 3 
verify this by typing 


the default colours (black, red, 

yellow, white) for a four colour mode 
(modes 1 and 5). You should be able to 

work out yourself what the colours 
would be in the other graphics modes 

(0, 2, 4). 


in Basic). This is 


why we get 


a 


white line (logical colour 3) 
instead of a yellow one. 


p=0: In this mode we simply plot the 

colour specified by QCOL regardless 
of any colours already on the 
screen. Thus QCOL0,1 will plot in 
red and GCOL0,2 will always plot in 

yel1ow. 


p=2: This plotting mode uses the logical 

AND of the two colours. If we 
change line 30 above to read: 

30 GC0L2,2: DUMMY=INKEY(100) 


this, 
colour 2 
0 (black) 

1 has the logic 
can again veri fy 
(PRINT 1 AND 2). 

up the 
to black, 

the same as the background) even 

though our specified foreground 
colour is yellow. 


the effect of 


we 


can see 


Colour 1 (red) AND 
(yellow) gives colour 

AND 2 
You 


p=l: In this plotting mode it is the 

logical OR of the new colour and 
the previous 

will be displayed. Type in the 
following program: 

10 MODE 5: GCOL 0,1 
20 PLOT 5,300,300 

30 GCOL 1,2: DUMMY=INKEY(100) 

40 PLOT 5,0,0 

50 END 

First of all you will 

line (i.e. colour 1 as specified by 
the GCOL in line 10), and then one 

you 

line, though one might at first 
sight expect a yellow one (colour 

2). Initially each point on the 
line was at logical colour 1 (red). 


colour which 


value 
this 
Thus after 


line disappears (changed 


Exclusive-OR 


p=3: This 


plotting 

(abbreviated EOR) as described last 
month. You should be able to work 


a 


is 


will get a white 


second later 


out what happens if you change line 
30 to include GCOL3,2 
article for the answer if 
not sure). 


(see end of 


you are 
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p=4: This ignores the current colour 

setting completely and merely 
inverts the colour already 
present. Thus if you change line 30 
to use plotting mode 4 the red line 

will change to yellow because the 
inverse (logical NOT) of colour 1 
(red) is colour 2 (yellow). In 

binary, inverting a number changes 
1 to 0 and 0 to 1 throughout. 


display will also show 
the current plotting mode for further 
reference. Stepping through the plotting 
modes in steps of 8 should mean that all 

the effects are functionally equivalent 
to plotting mode 0, thus avoiding any 

further complications through the use of 

the 

described. 


Each 


logical 


operations 


already 

you want to explore 

intermediate values then just change the 
step size in the program at line 1150. 


If 


QCOLMANIA 

The five plotting 

above, with values from 0 to 4, are the 

the User Guide. 

Technically this number is stored as a 
single byte of memory and is thus 
potentially capable of taking any value 

from 0 to 255. If you try this out you 
will find that it is possible to produce 

exciting striped colours 
some of which when viewed from a 

shades of the 
(includes flashing 

The following 
program allows you to explore this new 
world quite easily, and to find some new 

incorporate into 


Next month’s article will be the last 

article in this series, and will show 
you how to use GCOL and the VDU19 

instructions again, this time to produce 
some fast moving animation. 


only ones described in 


(Exclusive-OR plotting 
(white) in the earlier example.] 


colour 3 


all 


PROGRAM NOTES 


distance 
standard 16 colours 
colours of 


These notes 


included for those 


who are interested in the details of the 


program. The main program, from line 10 
to 280, simply displays some information 

and determines the 


the 


on 


9 


effects that you can 


graphics mode to be used before calling 

the procedure PR0Cdisplay2 at line 1130 
to produce the entire display. The main 

calls 


your own programs. 


When you run the program you will be 

asked which graphics mode you want to 
use (0, 1, 2, 4, 5). 

then be divided up into rectangular 
areas depending on the number of colours 
available in each mode. Thus the two 
colour modes will display two 
rectangles, the four colour modes will 
show four, and mode 2 will display 16 

Each 


also 


the 


procedure 

which sets up and initialises 
to specify the number of 
colours, and the number of display rows 


program 

PROCinit, 


The screen 


will 


and colunns for each mode. By storing 
this information it is very easy for the 

the same routines 


to 


program 

subsequently 
regardless of which graphics mode is 
chosen. 


to create the display, 


rectangle 


represents one of the colours for that 


mode numbered from left to right and top 
to bottom. Thus in a four colour mode 


The procedure PR0Cdisplay2 is simply 
a loop which cycles through each GCOL 
plotting 


the top two squares are colours 0 and 1, 


mode 


and calls a further 


and the bottom two squares are colours 2 
and 3. 


procedure PROCdisplay to create the 


display itself. 


the program sets the 
plotting mode to 0 and displays all the 
colours 


As 


The procedure PROCdisplay in turn 

each rectangular area 
window which is then filled with a 
background colour using CLG (see part 5 

for a more detailed 
description of this technique). 


a 


possible 

graphics mode on the screen. Pressing 

any other key) will 
increase the plotting mode by 8 and 
re-display the colours in this new mode. 
Continuing to 

cycle through many of the different 

the value of the 


the 


in 


the space bar (or 


in this 


press the space bar wi 11 
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10 REM Program GCOLMANIA 

20 REM Version E1.1 

30 REM Author Mike Williams 

40 REM ELBUG Aug/Sept 1984 

50 REM Program subject to copyright 


effects possible until 


plotting mode exceeds 255. 
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1070 DATA 1,4,2,2 
1080 DATA 2,16,4,4 
1090 DATA 4,2,2,1 
1100 DATA 5,4,2,2 

1110 ENDPROC 
1120 : 

1130 DEF PROCdisplay2(x%,y%) 

1140 LOCAL gcol!,z! 

1150 FOR gcol%=0 TO 255 STEP 8 
1160 PROCdisplay(gcol%,x%,y%) 

1170 z%=GET 
1180 NEXT gcol% 

1190 ENDPROC 
1200 : 

1210 DEF PROCdi splay (g!,x!,y%) 

1220 LOCAL colour!,incx!,incy!,I!,J! 
1230 incx!=l280/x%:incy%=1024/y% 

1240 FOR J!=y%-1 TO 0 STEP -1 
1250 FOR I%=0 TO x%-l 
1260 VDU24,I%*incx%;J%*incy%;(I%+l)*in 
cx!-l;(J%+1)*incy!-l; 

1270 colour!=y%*(y%—1 -J%)+1% 

1280 OCOL g%,colour%+l28:CLG 
1290 NEXT I%,J% 

1300 PRINTTAB(6,2)"GCOL ";gcol%; 

1310 ENDPROC 
1320 : 

1330 DEF PROCerror 
1340 ON ERROR OFF 

1350 IF ERR017 THEN REPORT: PRINT" at 
line ";ERL 
1360 ENDPROC 


60 : 


100 MODE 1 

110 ON ERROR MODE 6:PROCerror:END 

120 PROCinit 
130 VDU19,2,6,0,0,0 

140 REPEAT:CLS 

1 50 COLOUR 1 : PRINTTAB (16,2) "GCOU4ANIA 

160 COLOUR2:PRINTTAB(19,6) "by 
170 PRINTTAB(14,9)"Mike Williams 

180 COLOUR3 
190 INPUTTAB(1 ,16) "Which mode to disp 

lay"; mode! 

200 UNTIL mode!<6 AND INSTR("01245",S 
TR$(mode!)) 

210 MODE mode!:M%=-l 

220 VDU23,1,0;0;0;0; 

230 REPEAT:M!=M%+1:UNTIL mode%(M!)=mo 


II 


11 


11 


de% 


240 x!=column%(M%):y%=row%(M%) 

250 PROCdisplay2(x%,y%) 

260 MODE 6 
270 END 

280 : 

1000 DEF PROCinit 
1010 LOCAL M% 

1020 DIM mode!(4),colours!(4),column%( 
4),row!(4) 

1030 FOR M%-0 TO 4 

1040 READ mode!(M!),colours!(M%),colurn 
n!(M!),row%(M%) 

1050 NEXT Ml 
1060 DATA 0,2,2,1 


INTS HINTS HINTS HINTS HINTS HINTS HINTS HINTS HINT 






_ D. Robinson 

have difficulty reading the top line of text on your television then you 

stop the Electron using the top line. This command is 


TOP LINE OF TEXT 


If you 

can define a text window to 
slightly different for each mode to compensate for the different screen heights e.g. 

MODE 6: VDU 28,0,24,39,1 
MODE 5:VDU 28,0,31,19,1 
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SHADED LETTERING FOR TITLES 


W.R.Powers 

To make your titling in programs more attractive try the following procedure 
which starts at line 100 (the rest is just to demonstrate it). 

10 MODE 1:COLOUR 2 

20 PROCshade("Elbug for the Electron",260,800) 


30: 


100 DEF PROCshade(A$,X,Y) 

110 VDU5 

120 VDU19,0,5,0,0;:VDUl9,1,0;0; 

130 GCOL1,3:MOVEX,Y:PRINT A$ 

140 GCOLl,1:MOVEX-8,Y-8:PRINT AS 

150 ENDPROC 

This uses VDU5 to print text at the graphics cursor, printing the letters a 
second time offset by 8 graphics units. 
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Name : Cylon Attack 
Supplier : A & F Software 
Price : £7.90 
Reviewer : David Fell 
Rating : **** 

This game invol¬ 
ves you leaving the 
sanctity of your 

mothership to ward 
off a variety of 
alien space ships, 

all of whom are 
intent upon destroy¬ 
ing your space 

craft. The screen 
provides you with a 
view from the 

cockpit of your 
space ship, and you 
are provided with 

an indication of your fuel, shield and 
laser status. At the top of the screen 

is a similar display for your 

mothership, showing how many fuel 
refills there are left, and how many 

more hits can be taken on the 
mothership (hits are only taken on the 

mothership when you dock with it, and 
refuel). 


A / 


/ 


\ 


CYLON ATTACK 



untrained eye, the quality of play 
available in this version of the game 
is poor. The balls move in a most 
unrealistic way, often appearing to 
stop dead as though a bunker has 
suddenly materialised on the green of 

the snooker table, 
while some of the 
angles and rebounds 
would drive a 
professional deme¬ 
nted . 


Colourful this 
game may be, but 
realistic it defin¬ 
itely is not. This 
is a pity because 

the game of snooker 

really ought to 
computer simulation. Despite the 
apparent popularity of this game, 
judging by the charts of best sellers 
(presumably this reflects the 
popularity of snooker itself), this is 
definitely not a game I want to play 
again, and I suspect many others would 
feel the same about this offering from 
Visions. 



game features some attractively 



and 



a well 


The 

designed 

'graded' game. The first round is quite 

, and a little patience will allow 
to finish this round quite easily. 



you 

The 


later 


rounds. 



amazingly difficult, 
very subtle game play 


and 

to 


however, 

require some 


master. 


The 


high score table provided allows for 50 



, and 

from tape when 
option to 


can 


be 


saved and loaded 




is 


an 


from either two key 


layouts, or joysticks, and details of a 
high score competition are given with 
the packaging. 


ik m m 
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Title: 


SNOOKER 


Supplier: Visions 


Price: 
Reviewer 
Rating: 


£7.95 

Mike Williams 


* 


I would not claim much expertise in 
the practice of snooker, but even to my 
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Title 

Supplier 
Price 
Reviewer 

Ra t i ng 


Stranded 

Superior Software 
£7.95 

Peter Lowes 


* 


'Stranded' 


is 


a 


simple 


adventure 


by 


very 


smal 1 


and 


any standard. It 


took about an hour and a half to solve 



it 


was 


only 



to 


run 


through the plot twice 


The instructions consist of a brief 

description of the mission, which is to 
find your way home from an alien world 

on which you have been stranded. After 
that you are on your own. 


The 


game runs in mode 1 


neat and colourful display 


giving 

The 


a 


top 


half 


of 


the 



is 


devoted to a 


picture 


of 


the 


current location, and 


the bottom half to a text window giving 
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Daredevil Dennis 
Visions Software 
£7.95 

Alan R. Webster 

**** 


Title 


the briefest 


the usual information in 
possible way. Most of the locations 

have a picture to go with them. 
However, there are far too many 
of the game, such as the maze of long 
twisty corridors, which 
and use the same picture, even if the 


Supplier 


Price 


Reviewer 

Rating 


all alike 


are in different directions. The 


exits 


graphics 

effective, but they give no clues, and 
remain unchanged when things happen. 
This means 
contribute anything to the game which 
is a pity, considering how much memory 
is needed for them. 


simple. 


and 


that they don't really 


The adventure itself is pitifully 
small, 

The few so called problems are either 
very old or very obvious. Also the 
locations connect together in a very 
unrealistic manner. For example, exits 

take you to the 
you have just left. This 
makes the game seem bigger than it 
really is. 


containing only seven objects. 


Dennis is a rather active stuntman, 

whose aim in life is to make as much 
money from the movies as possible. Each 
stunt he performs earns him big money, 

that have 


from several locations 


piace you 


but there are several risks 


to be taken. 


It could be argued that this game is 

children or novice 

adventurers, but the lack of proper 
instructions and the very small range 
of commands to which the computer will 
respond 

beginner. For example, you can PUSH a 
button but not PRESS one. 

Too much has been sacrificed for the 

sake of the pretty pictures and not 
even every location has one. There are 
not yet many adventure games available 
for the Electron, 
written for 
However one comparable game is Twin 
Kingdom Valley from Bug Byte, This is 
much bigger, more logical, and has a 
picture to go with every location. 

'Stranded 1 

facility which I doubt 
need. 

which just about 
complexity (and appeal). 


aimed at young 


three different scenes. 
The first requires Dennis to ride a 
motorbike, leaping over houses and 
engaging in other dangerous pursuits. 
Among the stunts in the second scene, 
he has to jump a light-house with a 
wetbike, and in the third, his stunts 
are all performed on skis. 


There 


would only 


a 


fast graphics 


The game has smooth, 

over thirty multicoloured 


and 


many of those 
the BBC micro used mode 7. 


card claims that the program has an 
interrupt driven sound routine, but 
this was missing on our copy. There are 
also six skill levels to choose from, 
and each level has six intermediate 
levels, making thirty-six in all. 


does have a game save 


anyone will 
a mere nine bytes, 
sums up the game's 


Overall, this is a very pleasant 
game with a lot of originality and 
provides quite a challenge at 


the 


harder stages. 


MORE NEW AD D-ONS FOR THE EL ECTRON 

First Byte Computers, who have already produced a joystick interface for the 
Electron (reviewed in ELBUG 
printer interface price 
computer dealers, or direct from First Byte Computers, 10 Main Centre, Derby. 

A company called Slogger Ltd have launched a ROMBOX for the Electron at £35.00 
inclusive. This unit allows you to plug in up to eight ROMs or EPROMs. Contact 
Slogger Ltd, 215 Beacon Road, Chatham, Kent ME5 7BU. fl 


have now brought out a similarly packaged 
£34.95 inclusive, available from W.H.Smith and all good 
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DEBUGGING PROG R A MS 


2 ) 


by Mike Williams 


We conclude the two part article that we started last month, by 
looking at some further errors that can be introduced when typing in 
programs at the keyboard. Many of these potential 
can occur both in programs that you have typed in from magazine 
listings and in programs that you develop and write yourself. 


sources of error 


This month we shall be looking at 

likely to 


if you wish, though this is a little 
wasteful as we shall see very shortly. 


some of the errors that are 


arise when 
most obvious indication of these errors 


a program uses arrays. The 


you can use any array 
you have to tell the computer 


in a 


is the display of an error message with 


program, 

how many elements it is going to have, 
or rather, what the maximum subscript 
is going to be. In our previous 
example, the maximum subscript is 10, 
though the number of elements is 11. 
The DIM statement (short for dimension) 

for this purpose, and you 

simply enter a line as 

DIM A (10) 


or ’’subscript" in it. 
Many of the programs published in ELBUG 

make use of arrays, 
begin by looking at arrays and how they 


the word 


H 


array 


we had better 


DEFINING AND USING ARRAYS 


is 


array is a collection or list of 


An 


iterns tnat it 


is useful to treat in a 


up an array with 
maximum subscript of 10, before you use 
it. What this 


as variables can be 


in order to 


common way. Just 
used to store numbers or 


strings of 


also can arrays (or 
lists). All the items in an array must 
be of the 


is to allow the 
computer to set aside a block of memory 

for this purpose. Even if you only use 
5 elements of the array in the program, 
the memory for all 11 will have been 
allocated. The computer always assumes 
that the first element will be the 0 
one, which is why it is a little more 
economical to use elements 0 to 9, for 


same type; 


you cannot mix 


numbers and characters together. Each 


array is given its own unique name, and 
only 

distinguishes 
items in the array. What is a subscript 

you may well ask? Well it's a nunber 
which is used to 


the 


of a subscript 
between the different 


differentiate between 


example, rather than 1 to 10. In most 
cases however, the extra memory used 
by starting at element 1 will be 


the various items by pointing to, or 
indicating, the position of an item in 
the array. Each item in an array is 

element' of 


negligible and have no adverse effect 


on the running of the program. 


to 


as an 


that array. 


Once 


has 


our 


array 

dimensioned, with the elements going up 
to a maximum of 10, we cannot then 

a subscript larger than 10 (or increase 
the size of the array later). If you do 
try to use element 11 say, the computer 
will tell you that you can't in the 

only way it knows how, with an error 


We will look at a simple example to 
explain matters further. Let's assume 
that we have an array A( ), and that it 
has eleven elements 0 to 10 inclusive. 


That gives us the elements: 

A(0), A (1) , A (2) , A (3), A(4) , A(5) 

A(6), A(7) , A(8) , A (9) , A(10) 

In each case the number enclosed in the 
brackets is the subscript. Notice too, 
that in our example the first element 
is in position 0 (and not 1 
might have expected). This 
typical of computing, where the first 

item of anything is often taken as 0 
(even 


ii 


Subscript at line 


with an 

course. 


appropriate 


line number of 


you 
is just 


If the idea of arrays is new to you, 
then the following short orogram should 
help to clarify what we 
doing. In this program, an array called 

is defined, and the value of 


computing books have 
first chapter 0). You 

at 1 


have been 


some 

numbered their 
can always use an array starting 


FRED 
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(in fact 0) is 


just truncates the 
FRED(0.99) would be treated as FRED(0). 

this shouldn't 

whole numbers by 

is worth knowing 


Thus 


each of 


value. 


then printed out. There is a deliberate 


mistake in the program though. When you 
type it in, 

before continuing to read further. 


Of 


occur 


if you can spot this 


(subscripts 
definition), but it 
what will happen if it does. 


10 DIM FRED (12) 

20 FOR I%=1 TO 13 

30 PRINT "Value of element ";I%; 
is...";FRED(I%) 

40 NEXT 1% 


the "Subscript... 


IV 


In 


IV 


message can be caused by all 


sorts of errors. If it should happen to 
you, then check very carefully that 
each array in the program is correctly 
dimensioned, and that you haven't made 
a mistake in the spelling of the name 

of the array, either 
dimensioned, or wherever it is used. If 
you do get the name of an array wrong 
in a dimension statement, the the error 

Array at line...." 
rather than the "Subscript... 
already described. This is 
appears to the computer that you have 
not dimensioned the array which you are 


array consists of 13 elements. 


The 


but numbered from 0 to 12. Thus when 
the FOR-NEXT loop tries to print out 
the value of the 13th element in line 


where it is 


30 it 

"Subscript at line 30". Notice too that 
the subscript in line 30 is written as 
a variable (1%). Arrays are very often 
found in FOR-NEXT loops where we want 

to carry out the same 
element (here to print 
each one). 


produces the error message 


will be 


u 


It 


on each 
the value of 


now using. 


This 

unexpectedly on 
example, one problem that can sometimes 

in the mis-spelling of one of 

function names. 
Suppose you typed SIM(angle), instead 

SIN(angle), using the 
SIN function. You would then get the 
Array... 

computer thinks you are trying 
an array called SIM which hasn't been 

dimensioned. The computer can't 

your mind to see what you really meant. 


error can also 


rather 
. For 


One small but important point to 
note about arrays is that 
of dimensioning an array automatically 
causes the value of each element to be 

(or to a null or empty 

if it is 

You do not have to assign 

values to arrays before you can use 
them, unlike the situation with 

ordinary variables (the 

variable... 


the built in 


string 


a string 


of the correct 


array). 


II 


TV 


error 


i» 


No such 
tha t we 


to use 


error 

dealt with last month). 


CHECKING ARRAY ERRORS 


If the subscript of an element is 
given as a variable, or even as a more 
complex expression, it can be quite 
difficult to check what is going wrong. 
If the "Subscript.... 


MORE PROBLEMS WITH SPACES 

1 ■ - m 

Last month we talked about sane of 
the problems that can arise through the 
mishandling of spaces in a program. A 
further example of this occurs with 
arrays, and also with functions like 
SIN used above. You should NEVER leave 
a space between the name of an array or 
function and the following bracket. If 
this should happen by accident then the 
"No such variable..." error message may 
result. 


IV 


does appear, try listing first the line 


which the computer says is in error, 
and then in immediate mode print the 
values of any subscripts in that line. 
In our simple example above, this would 
mean listing line 30 (LIST 30) and then 
printing the value of 1% (PRINT 1%). 
This at least allows you to check if 
the subscript really is larger than it 
should be. Note too, that a subscript 
cannot be less than zero, so a negative 
subscript is always wrong. 


TOO DIMENSIONAL ARRAYS 


all our references have 

known 


Up to now 
been to wha t 

dimensional arrays", 
which 


ii 


one 

that is arrays 
we can think of as a simple list 

However, it is just 
feasible to use two dimensional arrays, 
and these are best thought of as tables 


of items. 


Incidentally, if a 
has a value which is not a whole 
number (or integer), then the computer 
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with both rows and columns. For 
example, we might have a program which 
uses an array dimensioned as 
SALARY(5,12) which is used to store 

monthly salaries for each of five 
years. The array now has two 
subscripts, one indicating the year and 

one the month. Thus the element 
SALARY(2,6) would be the salary for the 

6th month (June) in the second year. 

Although such two dimensional arrays 
are likely to appear more complicated 
when used in programs, particularly 
when the subscripts are not just simple 
numbers but are variables or 
expressions, the same problems are 
likely to arise as already described, 

and the advice given then is just as 
applicable. 


Debugging 


programs 


is 


rather like 


trying to solve a mystery story or 'Who 


Dunnit'. 
there if 


The clues you 


need 



all 


you 


only 


know where to look 


and 


what to look for 


fictional tales 


all 


is 


Just 

not 



what 


with 
it 



and and you may find several red 


herrings on 


the 


way 


Above all else. 


remain 


cool 


work 

the 


calm and collected, and 


logically 
power of the 


and 


methodically. Use 


computer 



to 


help you as much as possible along the 
way by printing the values of variables 
and subscripts etc. as described above. 


This completes this two part article 


on 


debugging, but it is 


an 


important 


topic and 


one 


which we shall no doubt 


return to again in due course. 




ROUNDING DECIMALS - D.Gibson 

To round a decimal to the nearest integer, obtain the integer of the number after 
adding 0.5 to it. Thus X%=INT(X+0.5) turns X into the nearest integer (whereas 
INT(X) would simply round X down). Similarly, X%=(INT(X*l0+0.5))/I 0 rounds to the 
nearest decimal place, and X%=(INT(X*4+0.5))/4 rounds X to the nearest quarter. 



MODE CHANGE BY VDU COMMAND - J.Forshaw 


To change display mode from within a procedure, use the VDU22,n conmand where n 
is the number of the mode that you want. Basic will not normally allow you to use 
the MODE instruction within a procedure function. 



CAPS LOCK POKE - G.Edwards 

You can can poke to a location in memory to control the 'Caps Lock* mode of the 
Electron. ?&25A=&20 sets ’Caps Lock' on and ?&25A=&30 switches it off. (Don't forget 
the *FX202 commamd from last month's hints for a more official way to do this). 



SPOOLING GRAPHICS - N.Kelly 

Opening a spooled file before beginning a graphics program will save whatever is 
generated on to tape for playing back again another time. Type *SP00L followed by 

the name of the file to be created and then run any program you wish that draws on 
the screen (you could include the *SPOOL instruction in the program). A file full of 
the characters that are sent to the screen will be created on tape (if you're using 
your cassette recorder). At the end of the program type *SPOOL to complete the 

saving operation. You can now run the graphics creation sequence through again 
without running the program simply by typing *EXEC followed by the file name of the 
file that you have just created. f 
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DARTBOARD 


By J. Crombie 


Have you ever wondered how top dart players such as Eric Bristow and 

Jocky Wilson 
ELBUG provides one answer 


reach the heights of perfection when they play? Well, 


would you believe 


with a program that 


will help you play better than 


and maybe score that 


fabulous one hundred and eighty! 


Dartboard is a game for two players 
(though you can easily take both parts 

using either the 
or joysticks (if you 

Plus-1 or similar joystick expansion 
fitted) to control 
choose to use joysticks then you may 
still use the keyboard for fine 
adjustments. 


if you wish) 


rd 


an Acorn 


aim. If you 


This is the traditional game of 
darts where each player takes turns to 

his 

down from the starting value of 501 
finishing on a double or a 'Bulls 


throw three darts to 


You may use either a joystick or the 
keyboard 
match) 

number key (1 to 9) to throw the dart. 

the relative strength of the 

the number, 1 

9 being the 


Draws dartboard on 


at the start of 


the 


aim a dart. Then 


a 


1180 PROCsector 


Draws one 
of the dartboard. 


1270 PROGmovesight Moves target point 


throw by the 
being 
strongest. 


size 


for dart using 


the weakest and 


joystick or 
keyboard. 
Throws dart. 


The keys for controlling 
'Z’ and 'X' for left and right, and 
and '?' for up and down. 


1490 PROOdart 
1590 PROCtotal 


i * i 


1730 PROCremovedarts Removes darts from 


As you throw your darts the computer 


automatically count up the total 


1810 PROCendgame 


will 


of your three throws and display your 


result. 


at the right-hand side of the 


Displays front 


page and selects 


joystick or 


When a game has finished you can 
choose either to play another game by 


keyboard control. 


Initialise sound 


2040 PROCinit 


envelopes, user 


of the match displayed on the screen by 
pressing the Return key. 


s 


and variables. 


PROGRAM NOTES 


from line 


The main program loop is 


The program is quite well structured 
using a number of clearly named 
procedures to do most of 


to 310 which is repeated until one 


180 


player is the winner. 


the work. 


with 


These procedures are listed below 


a brief 


each. 
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10 REM PROGRAM DARTS 
20 REM AUTHOR J.Crombie 
30 REM VERSION E0.1 
40 REM ELBUG 
50 REM PROGRAM SUBJECT TO COPYRIGHT 
60 : 

100 ON ERROR GOTO 2080 


1070 NEXT 

1080 FOR I%=1 TO 20:PROCsector{I%,0,50 
0,500,40):PROCsector(I%,1,500,500,1 5) :N 


AUG/SEP. 1984 


EXT 


1090 FOR I%=1 TO 20 

1100 MQVE450*SIN(RAD{18*I%-1 6))+471,440 
*COS{RAD(18* I%-16))+ 500:READ AS:PRINTA$ 
1110 GCOL0,2:MOVE430+1%,1000+1%: PRINT 
DARTS":GCOL0,1 
1120 NEXT 

1130 GCOL0,0:MOVE430+I%,1000+1%:PRINT 

DARTS" 

1140 RESTORE:FOR I%=1 TO 20:READ SCORE 
%(I%):NEXT 

1150 VDU4,28,30,31,39,0,19,2,4,0,0,0:0 
OLOURl30:CLS 
1160 ENDPROC 
1170 : 

1180 DEFPROCsector(N|,C%,X%,Y%,S%) 

1190 GCOL0,C% 

1200 MOVEX%,Y% 

1210 MOVE S%*SIN(RAD(18*{N%-1 )-9))+X%, 
S%*COS(RAD(18*(N%-1)-9))+Y% 

1220 PLOT85,5%*SIN(RAD(18*N%-9))+X%,S% 
*C0S(RAD(18*N%-9))+Y% 

1230 ENDPROC 
1240 : 

1250 DATA 20,1,18,4,13,6,10,15,2,17,3, 
19,7,16,8,11,14,9,12,5 
1260 : 

1270 DEFPROCmovesight(dartno%) 

1280 VDU5:F%=0 
1290 C%=A%:D%=B% 

1300 IF kb% GOTO 1350 


110 MODE!:PROCkeyorjoy 
120 CLS:VDU5:DIM SCORE%(20),SUM(2),DX 
(3) ,DY% (3) ,gaine% (2) 

130 PROCinit 
140 PROCboard 
150 REPEAT 

160 COLOUR0:PRINT"PLRl 


II 






PLR2 501 


50 


It 


1 


170 C0L0UR3:VDU28,30,31 ,39,4 
180 REPEAT 

190 TIME=0:Player%=Player%+l 
200 IF Player%=3 Player%=l 
210 sum%=0:dart%=l 

220 REPEAT 
230 winner%=FALSE 
240 PROCmovesight(dart!) 

250 IF SUM(Player%)=sum% AND double%= 
1 THEN winner%=TRUE:G0T0310 

260 IF SUM (Player%) -sunn%<2 THEN VDU4: 
PRINTTAB(6*(Player%-1)+1); 

:PROCremovedarts(dart!):UNTIL winner%=F 
ALSE:G0T031 0 

270 dart%-dart!+l 
280 UNTIL dart%>3 
290 PROCremovedarts(3) 

300 SUM(Player!)=SUM( Player!)-sum! :VD 
U4:PRINTTAB(6*(Player%-1)+1);SUM(Player 
%);SPC(2);:VDU5 
310 UNTIL winner% 

320 VDU4:SOUNDl,-l5,50,10:SOUND1,-15, 
100,5:SOUNDl,-l5,200,5:PRINT 

Piayer";P1ayer % 

(Player!)=game%(Player!)+1 

330 PRINT" PRESS KEY " 

340 A=G£T:IF A=13 PROCendgame:END 
350 IF dart%=4 THEN PROCremovedarts(3 

) ELSE PROCremovedarts(dart%) 

360VDU28,30,31,39,4,12:Player%=2:SUM 

(1) =501 :SUM(2) =501 

370 UNTIL FALSE 
380 END 
390 : 

1000 DEF PROCboard 
1010 F0RI%=1 TO 20 
1020 PROCsector(1%,3,500,500,406) 

1030 PROCsector(1%,3*(1% MOD 2),500,50 
0,400) 

1040 PROCsector(I%,3*(ABS((I% MOD 2)-l 
)),500,500,365) 

1050 PROCsector(1%,3*(1% MOD 2),500,50 
0,225) 

1060 PROCsector(I%,3*(ABS((I% MOD 2)-l 
)),500,500,200) 


It 


;:VDU5 


1310 IF ADVAL(2*(Player!-!)+l)>50000 A 


%=A%-8 


1320 IF ADVAL(2*(Player 

B%-8 

1330 IF ADVAL(2*(Player%-1)+1)<8000 A 
A%+8 


e. 


1)+2)<8000 B% 




i i i i i i ii 


KIN 


• i i i i i i i t i 


:game! 


NER 


< 5 . 




1340 IF ADVAL(2*(Player%-l)+2)>50000 B 


%=B%+8 


1350 IF INKEY-98 A%=A%-8 

1360 IF INKEY-67 A%=A%+8 

1370 IF INKEY-73 B%=B%+8 

1380 IF INKEY-105 B!=B%-8 

1390 IF A%<0 A%=0 ELSE IF A%>900 A%=900 

1400 IF B%<0 B%=0 ELSE IF B%>900 B%=900 
1410 IF TIMF1>300 GOTO 1440 
1420 *FXl5,1 
1430 GOTO1450 

1440 KEY%=INKEY(0):IF KEY%>48 AND KEY 

<58 THEN GC0L3,2:MOVEC%,D%:VDU224:PROCd 
art(A!,B%,dartno%):ENDPROC 

1450 GCOL3,2:IF F%=1 MOVEC%,D%:VDU224 
1460 F%=1:MOVEA!,B%:VDU224 

1470 GOTO1290 
1480 : 

1490 DEFPROCdart(X%,Y%,dartno) 

1500 GC0L3,1 


Cl 


7> 
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1820 VDU22,1 

1830 C0L0UR1:PRINTTAB(15,4);"DARTS 

1840 SOUND1,-15,10,5:SOUNDl,-15,50,5:S 
OUND1,-15,25,10 

1850 COLOUR2:PRINTTAB(5,12);"Player 1 
has won ";game%(1)games 

1860 COLOUR2:PRINTTAB(5,14);"Player 2 
has won ”;game%(2); 

1870 COLOUR!:IF game!(1)=game!(2) THEN 

PRINTTAB(1,20);"I therefore declare th 
e contest a draw"'':ENDPROC 

1880 PRINTTAB(1,20);"I therefore declar 
e the winner ";:IF game! (1) >game% (2) THE 
N PRINT"Player 1" ELSE PRINT"Player 2 

1890 ENDPROC 

1900 : 

1910 DEFPROCkeyorjoy 

1920 VDU23;1,0;0;0;0; 

1930 COLOUR1:PRINTTAB(12,3)"Dartboard 

1940 COLOUR2:PRINTTAB(11,6)"by J.Cromb 


1510 X%=X%+16+RND(32*(KEY%-&30))-8*(KE 
Y%-&30):Y%=Y%-12+RND(32*(KEYI-&30))-8*( 
KEY%-&30)-12*(& 3A-KEY%) 

1520 MOVEX%-20,Y%~20:DRAWXl+20,Y%+20 
1 530 MOVEX%-20,Y%+20:DRAWX%+20,Y%-20 
1540 DX%(dartno)=X!:DY%(dartno)=Y% 

1550 SOUND0,-15,5,1 
1560 PROCtotal(X%,Y%) 

1570 ENDPROC 

1580 : 

1590 DEFPROCtotal(X!,Y%) 

1600 IFY%=500 Y%=499 
1610 ANGLE%=DEGATN{(X%-500)/(Y%-500)): 
radius%=SQR((X%-500)~2+(Y!-500)"2) 

1620 IF Y%-500<0 THEN ANGLE%=ANGLE%+18 
0 ELSE IF ANGLE!<-9 THEN ANGLE!=ANGLE%+ 


It 


11 


* H 


II 


It 


360 


1 630 SEC%=(ANGLE%+9)/I 8 
1 640 DARTSCORE%=SCORE%(SEC!+1):double% 


11 


0 


1650 IF radius!<406 AND radius%>365 TH 

EN DARTSCORE!=DARTSCORE% *2:double!=l 
1660 IF radius%>200 AND radius!<225 TH 

EN DARTSCORE!=DARTSCORE%* 3 
1670 IF radius%>!4 AND radius%<40 THEN 
DARTSCORE%=25 

1680 IF radius%<15 THEN DARTSCORE%=50: 
double!=l 

1690 IF radius!>406 THEN DARTSCORE%=0 
1700 sum%=sum!+DARTSCORE% 

1710 ENDPROC 
1720 : 

1730 DEF PROCramovedarts(dartno!) 

1740 GCOL3,1 

1750 FORI%=1 TO dartno! 

1760 MOVEDX!(I%)-20,DY%(I%)-20:DRAWDX! 
(1%)+20,DY!(1%)+20 

1770 MOVEDX!(I%)-20,DY%(I%)+ 20:DRAWDX! 
(I!)+20,DY%(I!)-20 
1780 NEXT 
1790 ENDPROC 
1800 : 

1810 DEE'PROCendgame 


it 


le 


1950 COLOUR3:PRINTTAB(9,12)"Are you pi 

TAB (10) "from Keyboa rd 
1960 PRINTTAB(12)"or Joystick 
1970 REPEAT:VDU7 
1980 COLOUR2:PRINTTAB(15,17) 

1990 G$ =GET$:PRINTTAB(19,17)G$ 

2000 UNTIL G$="K" OR G$="J 
2010 IF G$="K" kb%=TRUE ELSE kb%=FALSE 

2020 ENDPROC 
2030 : 

2040 DEFPROCinit 

2050 VDU23,224,8,8,8,255,8 # 8,8,8:A!=50 
0:B%=500:SUM(1)=501:SUM(2)=501:@%=0:Pla 
yer%=2:game!(1)=0:game%(2)=0 
2060 ENDPROC 
2070 : 

2080 ON ERROR OFF 
2090 MODE 6 
2100 IF ERR=17 END 
2110 REPORT:PRINT" at line ";ERL 
2120 END 


« 


II I 1 


It 


aying 


ii 


ti 


POINTS ARISING 


SOUND ENVELOPE EDITOR. 

In the update to the Sound Envelope Editor that we published in the June issue of 
ELBUG, an inexplicable error crept in. The NEXTF! contained in line 360 is quite 
redundant and should be omitted if you use this correction. 
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737 FLIGHT SIMULATOR 

In our review of the 737 Flight Simulator by Salamander Software we obviously 

away by the excellence of the display when we 
accompanying engine noise. In fact, the Electron version of this simulation does not 

Our apologies if we inadvertantly misled anyone over this. 


to the 
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ELBUG MAGAZINE is produced by BEEBUG Publications Ltd. 

Editor: Mike Williams. 

Production Editor: Phyllida Vanstone. 

Technical Assistants David Fell, Nigel Harris and Alan Webster. 

Managing Editor: Lee Calcraft. 

Thanks are due to Sheridan Williams, and Adrian Calcraft for assistance with this 
issue. 


All rights reserved. No part of this publication may be reproduced without prior 
written permission of the Publisher. The Publisher cannot accept any responsibility, 
whatsoever, for errors in articles, programs, or advertisements published. The 
opinions expressed on the pages of this journal are those of the authors and do not 
necessarily represent those of the Publisher, BEEBUG Publications 
Limited. BEEBUG Publications LTD (c) 1984. 
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We have produced an attractive 
hard-backed binder for the 
ELBUG magazine. These 
hinders are green in colour 
with “ELBUG” in gold lettering 
on the spine and allow for the 
whole of one volume of the 
magazine to be stored as a 


single reference book. 


Each binder will accommodate 

10 ELBUG magazines, and is 
supplied with 12 wires to 
enable the index and the latest 

copy of the supplement to be 
included within the binder if 

required. Individual issues may 
be easily added and removed, 
allowing for the latest volume 

to be filed as it arrives. 

The price of the new ELBUG binder is £3.90 including VAT, 
please add 50p post and packing for delivery within the U.K. 
Overseas members please send the same amount, this will 
cover the extra postage but not VAT. 

Plese send to: 

BEEBUGOFT, PO BOX 109, High Wycombe, Bucks, HP 10 8HQ 


THE BEST OF ELBUG ON CASSETTE 


programs published in ELBUG have been collected together and 

Games and other programs for the Acorn 
at £3.95. This book is part of the Penguin Acorn Computer Library and at 
present there is just one other title available though others are planned. 


Many of 

published by Penguin Books under the name 
Electron 


the best 


There are 20 programs in all in four different categories: 
Action Games 

Munch-Man 

Robot Attack Hedgehog 


t 


Games 


Mars Lander Invasion 


for the Atom 


i ELECTRON 


TTiought games 

Highet/Lower 

Anagrams 


Five-Dice 
Return of the Diamond 


Li fe 


Visual Displays 

Union Jack 
Screenplay 


Square Dance Ellipto 
3-D Rotation 


Utilities 


Sound Wizard Bad Program Lister 
3-D Lettering Bad Program Rescue 
Double Height Text 


r»NU Mi « OKN CfiWUHK utv.Afcr 

- 


from our software address (in High 


All 20 programs are now available on 
Wycombe) price £7 to members and £9 to non-members, plus 50p post & packing in 


either case. 
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